TeX 1995 July/TeX CD-ROM July 1995 (Disc 1)(Walnut Creek)(1995).ISO/macros/plain/contrib/lextex/lextex.tex

Text File | 1992-08-25 | 118.4 KB | 4,274 lines

%$Log:    TeX $
%Revision 1.1  91/10/30  15:08:24  RC-HH
%Initial revision
% Amendments made 08/11/91
% \colsref amended (/ deleted)
% \getaddress amended (/ added)
% \bsdft altered by adding conditionals (ifx sols, sref, cref)
% \nsnbp changed to \nsnbps (\space added) and \nsn added
% The names of these should, perhaps be changed to include @
% Alterations to \xref and \newxref to ensure correct updating
% Alteration to \arrangement
% \global added in \party in one place. May need adding in others
% Alterations to \chittitle (for use in \faxsheet)
% Minor alteration to \advising
% Alteration to \familydivision and to \family and assoc macros
% \pleadingtrue added to \ch etc, \pleading false as default
% Alteration to affidavit to correct error
% \clientpltrue added in \specialwrit
% \sjsummons altered: do same to others
% \origprocess : \par added after #2
% \widowpenalty added to \pageparameters and \draftparameters
% \string added in \write statement in \schedule
% Alterations to \schedref and \appendref to deal with singles
% Added \pararef = to \clref
% Minor alterations to correct pagenumbering---check
% Duplicate definition of \faxsheet removed
% \everyjob added
% Minor alterations re \workdone
% Minor alteration to \plainoutput. \count1 & 2 swapped
% 12 Nov 91 Alteration made to \maxpartywidth
% and to \resetpleadingdefaults
% Many %% removed
% 20 Nov 1991
% Minor alterations to \today and \everyjob
% \makeatletter \makeatother added
% time macros (taken from gentle.tex) added
% 21 Nov 1991
% TUBboat.sty macros added to remove spaces
% \oldquotes and ancilliary macros added
% \futureday etc and \dayofweek added


% This is LeXTeX, by Roger C-H. Horne.
% Some of it is original, and some is not.
% e.g., it takes chunks from manmac.tex relating to font sizing
% and amends those to include poundsigns
% It also takes footnotes from AMSptt.sty
% And uses a number of macros that have appeared in TUGboat
%
% The present version is an amalgamation of two files---and it shows.
%
% Last modified 21th November 1991

% Introduction (ie general purpose stuff)
%
\newif\ifdebugging
\def\dbhelp#1{\ifdebugging\inform{#1}\fi}
\debuggingfalse

\ifx\lextexisloaded\relax\message{ - already loaded}
  \afterassignment\endinput
  \else\let\lextexisloaded=\relax
  \fi

\def\fmtname{LeXTeX}\def\fmtversion{1.005}
\message{Version \fmtversion}

\catcode`@=11 % Turn the `at' sign into a letter.
\catcode`\^=7 % Ensure that ^ is superscript.
%\catcode`\|=12% Ensure that | is `other'.

% time macros
\newcount\hour \newcount\minute
\def\mm@{\ifnum \minute<10 0\fi\number\minute}
\def\writetime{\hh@\mm@\space\am@pm}

\everyjob{%
  \hour=\time  \divide \hour by 60
  \minute=\time
  \loop  \ifnum \minute > 59 \advance \minute by -60 \repeat
  \ifnum \hour<13
    \def\hh@{\number\hour:}%  % supresses leading 0's
    \def\am@pm{\ifnum \hour < 12 a.m.\else p.m.\fi}
  \else \advance \hour by -12
    \def\hh@{\number\hour:}%  % supresses leading 0's                    \fi
    \def\am@pm{\ifnum \hour > 11 a.m.\else p.m.\fi}
  \fi
  \inform{}%
  \inform{This is LeXTeX, Version \fmtversion, running at \writetime}%
  \inform{\space\space on the \today.}%
  \inform{}%
  \inform{Comments and bug reports to}%
  \inform{}%
  \inform{\space\space Roger Horne}%
  \inform{\space\space 7 New Square}%
  \inform{\space\space Lincoln's Inn}%
  \inform{\space\space London WC2A 3QS}%
  \inform{\space\space [e-mail]}%
  \inform{}%
  }

% LeX TeX logo---looking distinctly similar to \LaTeX...
%
\def\LeXTeX{L\kern-.25em\raise.5ex\hbox{ex}T\kern-.1667em\lower
   .5ex\hbox{E}\kern-.125emX}
% The LaTeX logo sometimes looks like this (it varies a little)
\def\LaTeX{{\rm L\kern-.36em\raise.3ex\hbox{\scaps a}\kern-.15em
    T\kern-.1667em\lower.7ex\hbox{E}\kern-.125emX}}


% Part 1 - Fonts etc---

% Main maths + roman---

\font\tentex=cmtex10
\font\twelverm=cmr12
\font\ninerm=cmr9
\font\eightrm=cmr8
\font\sixrm=cmr6
\font\fiverm=cmr5

% Maths italic---

\font\twelvei=cmmi12
\font\ninei=cmmi9
\font\eighti=cmmi8 % This is used as a scriptfont
\font\sixi=cmmi6 % reinstated for the time being
\skewchar\twelvei='177
\skewchar\ninei='177 \skewchar\eighti='177
\skewchar\sixi='177

% Math symbols---

\font\twelvesy=cmsy10 scaled \magstep1
\font\ninesy=cmsy9
\font\eightsy=cmsy8 % used as a scriptfont
\font\sixsy=cmsy6 % reinstated
\skewchar\twelvesy='60
\skewchar\ninesy='60
\skewchar\eightsy='60
\skewchar\sixsy='60

% Bold extended---

\font\twelvebf=cmbx12
\font\ninebf=cmbx9

% Typewriter style---

\font\twelvett=cmtt12 % Now not using proportional version
%\font\twelvett=cmvtt10 scaled \magstep1
%\font\tentt=cmvtt10
\font\tentt=cmtt10
\font\ninett=cmtt9

% Slanted type---

\font\twelvesl=cmsl12
\font\ninesl=cmsl9

% Italic---

\font\twelveit=cmti12
\font\nineit=cmti9

% Odd fonts---

\font\headerfont=cmr12 scaled \magstep1
\font\titlefont=cmr12 scaled \magstephalf

% Now the poundsign fonts:

\font\tenu=cmu10 % unslanted text italic
\font\twelveu=cmu10 scaled \magstep1
\font\tentiit=cmitt10

% And the caps and small caps fonts:

\font\fourteencaps=cmcsc10 scaled \magstep2
\font\twelvecaps=cmcsc10 scaled \magstep1
\font\tencaps=cmcsc10

% The underline and cross-out macros

\def\gobble#1{}

\def\changefont#1{%
  \edef\testfontname{#1\fontname\font}%
  \edef\testfont{\expandafter\string\the\font}%
  \edef\testtwo{#1\expandafter\gobble\testfont}%
  \edef\testthree{\csname\testtwo\endcsname}%
  \expandafter\ifx\csname\testtwo\endcsname\relax
  \global\expandafter\font\testthree\expandafter=\testfontname
  \fi\ignorespaces
  \let\temppounds=\pounds
  \testthree\ignorespaces}

\gdef\ul{\changefont{u}
      \def\pounds{%
         \setbox1\hbox{\temppounds}%
         \setbox2\hbox{p}%
         \copy1\kern-\wd1
         \vrule depth .6\dp2 height -.45\dp2 width\wd1
         \relax}%
       }

\gdef\xo{\changefont{x}
       \def\pounds{%
         \setbox1\hbox{\temppounds}%
         \setbox2\hbox{p}%
         \copy1\kern-\wd1
         \vrule depth -.35ex height .45ex width\wd1
         \relax}%
       }

\def\xu{\changefont{xu}}
\let\xul\xu

% The next ones are at present somewhat abbreviated
% ie, poundsigns will not be crossed-out or underlined properly

\gdef\uul{\changefont{uu}}
\gdef\xxo{\changefont{xx}}
\gdef\uuul{\changefont{uuu}}
\gdef\xxxo{\changefont{xxx}}

% It will also be necessary in due course to define
% \def\xxu - inserted by am1, deleted by am2
% \def\xxxu - inserted by am1, deleted by am3
% \def\xxxuu - inserted by am2, deleted by am3

% Part 2 - Dimensions, etc.

\newdimen\footindent % fn indentation
\newdimen\clindent % clause indentation
\newdimen\sclindent % sub-clause indentation
\newdimen\ssclindent
\newdimen\sssclindent
\newdimen\ssssclindent
\newdimen\sssssclindent
\newdimen\cnindent % "computer-numbering" indentation
\newdimen\hclindent % hanging indentation
\newdimen\hsclindent
\newdimen\hssclindent
\newdimen\hsssclindent
\newdimen\hssssclindent
\newdimen\hsssssclindent
\newdimen\quoteindent % indentation of quotations
\newdimen\quoteparindent % \parindent in quotes
\newdimen\clbox % box holding \cl in \clcont
%\newdimen\sclbox % not used yet
%\newdimen\ssclbox
%\newdimen\sssclbox
%\newdimen\ssssclbox
%\newdimen\sssssclbox
\newdimen\signindent % indentation of signature
\newdimen\rbracketsize % size of brackets round sworn, etc
\newdimen\lbracketsize
\newdimen\brackdepth % Depth of space in sworn etc
\newdimen\notespace % space marginal notes--text
\newdimen\maxnote % width of marginal note
\newdimen\clnamelength % length of "clause" in contents macros
\newdimen\pagewidth % alternative name for \hsize
\newdimen\pageheight % alternative name for \vsize

\newcount\footmarkcount@ % No. of footnotes
\newcount\recno % recitals
\newcount\clno % clauses and sub-clauses
\newcount\sclno
\newcount\ssclno % sub-sub etc
\newcount\sssclno
\newcount\ssssclno
\newcount\sssssclno
\newcount\greekno % see \ssscl & \sssscl
\newcount\cardno % see \sssscl & \ssssscl
\newcount\exno % Exhibits in affidavits
\newcount\clauselevel
\newcount\ssdcount \ssdcount=0 % new
\newcount\schedcount \schedcount=0
\newcount\partcount \partcount=0

\newskip\quoteparskip %parskip in quotes
\newskip\ttglue
\newskip\blankskip % Used in \noaddr etc
\newskip\twelvebase % \normalbaselines (12pt type)
\newskip\tenbase % \normalbaselines (10pt type)
\newskip\ninebase % \normalbaselines (9pt type)
\newskip\twelvesmallskipamount % TB p. 349
\newskip\tensmallskipamount
\newskip\ninesmallskipamount
\newskip\twelvemedskipamount
\newskip\tenmedskipamount
\newskip\ninemedskipamount
\newskip\twelvebigskipamount
\newskip\tenbigskipamount
\newskip\ninebigskipamount
\newskip\settledgap % distance between settled & sig.
\newskip\clskip % vskip for clauses
\newskip\sclskip % vskip for sub-clauses
\newskip\ssclskip % ditto ss-clauses
\newskip\sssclskip % ditto sss-clauses

\newif\ifgreek % see \sssscl
\newif\ifcard % see \ssssscl
\newif\ifclind % hanging indentation in clauses
\newif\ifcontents % table of contents produced
\newif\ifnocommaindate % used in \today
\newif\ifq % Used (?) in the quote macros
\newif\ifxrfmissing % cross-refs file
\newif\ifvisible % used in contents
\newif\ifmarginalnotes % if true, notes in margin
\newif\ifxrefs % check this
\newif\ifoldxrffile %
\newif\ifindex
\newif\iffullsize \fullsizefalse% Whether fullsize backsheet
\newif\ifdraft \drafttrue% Draft or engrossment
\newif\ifpleading % No date req'd for pleadings
\newif\ifucfirstline % \ucfirstlinetrue
\newif\ifchit % print a fee chit
\newif\ifendorsement \endorsementfalse

\newread\xrf
\newread\inx

\newwrite\cont
\newwrite\inx
\newwrite\xrf


% Part 3 - Now add the poundsign macros:

\def\rmpo{\leavevmode\lower.055ex\hbox{\$}\kern-.0em}
\def\itpo{\leavevmode\lower.055ex\hbox{\$}\kern-.09em}
\def\slpo{\leavevmode\lower.055ex\hbox{\$}\kern-.07em}
\def\bfpo{\leavevmode\pmb{\lower.025ex\hbox{\$}\kern-.04em}}
\def\ttpo{\leavevmode\lower.0ex\hbox{\$}\kern0em}
\def\ttkludgepo{\leavevmode\epmb{\lower.0ex\hbox{\$}\kern-.0em}}

\def\pmb#1{\setbox0=\hbox{#1}% Poor man's bold
  \kern-.025em\copy0\kern-\wd0
  \kern.05em\copy0\kern-\wd0
  \kern-.025em\raise.0003em\box0 }

\def\epmb#1{\setbox0=\hbox{#1}% Extremely poor man's bold
  \kern-.005em\copy0\kern-\wd0
  \raise.015em\copy0\kern-\wd0
  \kern.01em\copy0\kern-\wd0
  \kern-.005em\raise.015em\box0 }


% Part 4 - The size-changing macros

% These are adapted from the 10-point manmac macros
% Script and scriptscrip removed except in \rm

\def\twelvepoint{\def\rm{\def\pounds{{\twelveu\rmpo}}\fam0\twelverm}%
  \textfont0=\twelverm \scriptfont0=\eightrm \scriptscriptfont0=\sixrm
  \textfont1=\twelvei \scriptfont1=\eighti \scriptscriptfont1=\sixi
  \textfont2=\twelvesy \scriptfont2=\eightsy \scriptscriptfont2=\sixsy
  \textfont3=\tenex \scriptfont3=\tenex \scriptscriptfont3=\tenex
  \def\it{\def\pounds{{\itpo}}\fam\itfam\twelveit}%
  \textfont\itfam=\twelveit
  \def\sl{\def\pounds{{\twelveit\slpo}}\fam\slfam\twelvesl}%
  \textfont\slfam=\twelvesl
  \def\bf{\def\pounds{{\twelveu\bfpo}}\fam\bffam\twelvebf}% pmb poundsign
  \textfont\bffam=\twelvebf
  \def\tt{\def\pounds{{\tenu\ttkludgepo}}\fam\ttfam\twelvett}% ! poundsign
  \textfont\ttfam=\twelvett
  \tt \ttglue=.5em plus.25em minus.15em % not needed for cmvtt fonts
  \normalbaselineskip=\twelvebase
  \smallskipamount=\twelvesmallskipamount
  \medskipamount=\twelvemedskipamount
  \bigskipamount=\twelvebigskipamount
  \def\caps{\def\pounds{~}\fourteencaps}% don't use the pound sign
  \def\scaps{\def\pounds{{\twelveu\rmpo}}\twelvecaps}%
  \setbox\strutbox=\hbox{\vrule height.7\normalbaselineskip
    depth.3\normalbaselineskip width\z@}%
  \normalbaselines\rm}
% consider changing normalbaselineskip to \the\twelvebase

\def\tenpoint{\def\rm{\def\pounds{{\tenu\rmpo}}\fam0\tenrm}%
  \textfont0=\tenrm \scriptfont0=\sevenrm \scriptscriptfont0=\fiverm
  \textfont1=\teni
  \textfont2=\tensy
  \textfont3=\tenex \scriptfont3=\tenex \scriptscriptfont3=\tenex
  \def\it{\def\pounds{{\itpo}}\fam\itfam\tenit}%
  \textfont\itfam=\tenit
  \def\sl{\def\pounds{{\tenit\slpo}}\fam\slfam\tensl}%
  \textfont\slfam=\tensl
  \def\bf{\def\pounds{{\tenu\bfpo}}\fam\bffam\tenbf}%
  \textfont\bffam=\tenbf
  \def\tt{\def\pounds{{\tentiit\ttpo}}\fam\ttfam\tentt}%
  \textfont\ttfam=\tentt
  \tt \ttglue=.5em plus.25em minus.15em
  \smallskipamount=\tensmallskipamount
  \medskipamount=\tenmedskipamount
  \bigskipamount=\tenbigskipamount
  \normalbaselineskip=\tenbase
  \def\caps{\def\pounds{{\twelveu\rmpo}}\twelvecaps}%
  \def\scaps{\def\pounds{{\tenu\rmpo}}\tencaps}%
  \setbox\strutbox=\hbox{\vrule height10pt depth5pt width\z@}%
  \normalbaselines\rm}

\def\ninepoint{\def\rm{\def\pounds{{\nineit\slpo}}\fam0\ninerm}%
  \textfont0=\ninerm \scriptfont0=\sixrm \scriptscriptfont0=\fiverm
  \textfont1=\ninei
  \textfont2=\ninesy
  \textfont3=\tenex \scriptfont3=\tenex \scriptscriptfont3=\tenex
  \def\it{\def\pounds{{\nineit\itpo}}\fam\itfam\nineit}%
  \textfont\itfam=\nineit
  \def\sl{\def\pounds{{\nineit\slpo}}\fam\slfam\ninesl}%
  \textfont\slfam=\ninesl
  \def\bf{\def\pounds{~}\fam\bffam\ninebf}% pound sign to be added
  \textfont\bffam=\ninebf
  \def\tt{\def\pounds{~}\fam\ttfam\ninett}% no pound sign
  \textfont\ttfam=\ninett
  \tt \ttglue=.5em plus.25em minus.15em
  \smallskipamount=\ninesmallskipamount
  \medskipamount=\ninemedskipamount
  \bigskipamount=\ninebigskipamount
  \normalbaselineskip=\ninebase
  \setbox\strutbox=\hbox{\vrule height8pt depth3pt width\z@}%
  \normalbaselines\rm}


% Part 5 - Footnotes

% These are adapted from the AMSTeX macros
% For details of usage see "The Joy of TeX" by Spivak M.D.

\def\relaxnext@{\let\next\relax}

% This is new. Adaption of \hang etc (Vol.B p.355)

\def\fang{\hangindent\footindent}
\def\fitem{\par\fang\toeindent}
\def\toeindent#1{\noindent\hbox to \footindent{\hss#1\thinspace}}

% This is where AMSPPT.STY is added:

\def\footmarkform@#1{$^{#1}$}
\let\thefootnotemark\footmarkform@
\def\makefootnote@#1#2{\insert\footins
  {\interlinepenalty\interfootnotelinepenalty
% The original (AMSTeX) uses 8-point:
  \ninepoint\splittopskip\ht\strutbox\splitmaxdepth\dp\strutbox
  \floatingpenalty\@MM\leftskip\z@\rightskip\z@
    \spaceskip\z@\xspaceskip\z@
% This differs from the original:
  \fitem{#1}\footstrut\ignorespaces#2\unskip\lower\dp\strutbox
  \vbox to\dp\strutbox{}}}
  \footmarkcount@\z@
\def\footnotemark{%
 \let\@sf\empty\relaxnext@\ifhmode\edef
 \@sf{\spacefactor\the\spacefactor}\/\fi
 \def\next@{\ifx[\next\let\next\nextii@\else
  \ifx"\next\let\next\nextiii@\else
  \let\next\nextiv@\fi\fi\next}% and from here
 \def\nextii@[##1]{\footmarkform@{##1}\@sf}%
 \def\nextiii@"##1"{{##1}\@sf}%
 \def\nextiv@{{\scriptfont0=\sevenrm % scriptfont changed to 7pt
  \global\advance\footmarkcount@\@ne
  \footmarkform@{\number\footmarkcount@}\@sf}}%
 \futurelet\next\next@}
\def\footnotetext{\relaxnext@
 \def\next@{\ifx[\next\let\next\nextii@\else
  \ifx"\next\let\next\nextiii@\else
  \let\next\nextiv@\fi\fi\next}%
 \def\nextii@[##1]##2{\makefootnote@{%
  \footmarkform@{##1}}{{\frenchspacing##2}}}% {\frenchspacing} added
 \def\nextiii@"##1"##2{\makefootnote@{##1}{{\frenchspacing##2}}}%
 \def\nextiv@##1{\makefootnote@{%
  \footmarkform@{\number\footmarkcount@}}{{\frenchspacing}##1}}%
 \futurelet\next\next@}
\def\footnote{\let\@sf\empty\relaxnext@\ifhmode\edef
 \@sf{\spacefactor\the\spacefactor}\/\fi
 \def\next@{\ifx[\next\let\next\nextii@\else
  \ifx"\next\let\next\nextiii@\else
  \let\next\nextiv@\fi\fi\next}%
 \def\nextii@[##1]##2{%
  \footnotemark[##1]\footnotetext[##1]{{\frenchspacing##2}}}%
 \def\nextiii@"##1"##2{%
  \footnotemark"##1"\footnotetext"##1"{{\frenchspacing##2}}}%
 \def\nextiv@##1{\footnotemark\footnotetext{{\frenchspacing##1}}}%
 \futurelet\next\next@}
\def\adjustfootnotemark#1{\advance\footmarkcount@#1\relax}

\def\ref{\unskip\footnote}% Remove space from \se if necessary

% Prevent footnote splitting

\interfootnotelinepenalty=10000 % No splitting of footnotes
\skip\footins=12pt plus 2pt minus 4pt
% space added when footnote is present - taken from manmac


% Part 6 - Macros to set all counts to zero

\def\clearnotenumber{\footmarkcount@\z@} % footnote counter
\def\clearrecno{\recno=64}         % Recital counter: 65 is `A'
\def\clearclno{\clno=0}            % Clause etc counters
\def\clearsclno{\sclno=0}
\def\clearssclno{\ssclno=96}       % 97 is `a'
\def\clearsssclno{\sssclno=0}
\def\clearssssclno{\ssssclno=96}
\def\clearsssssclno{\sssssclno=96}
\def\cleargreekno{\greekno="010A}  % "010B is alpha "027C is heart
\def\clearcardno{\cardno="027B}    % "027C is heart-suit
\def\clearexno{\exno=0} % exhibits
\def\clearpageno{\pageno=1 \footline={\hss\tenrm\folio\hss}}

\def\reset{%
  \clearrecno
  \clearclno
  \clearsclno
  \clearssclno
  \clearsssclno
  \clearssssclno
  \clearsssssclno
  \cleargreekno
  \clearcardno
  \clearexno
  \clearnotenumber
  \clearpageno
  \clauselevel=0}


% Part 7 - Automatic clause numbering

% The #1 in \xcl etc. is the clause number
% These macros do not increase the count regs.
% \ignorespaces is used to excess since these macros
% can be abused somewhat - leading to odd spaces
% appearing in unexpected places!

\def\xcl#1{\clearsclno% Set scl counter to zero
  \dimen0=\the\parindent\parindent=0pt% store current setting
  \ifclind \hangindent=\clindent \else\hangindent=\hclindent\fi
  \clauselevel=1
  \hangafter=1
  \vskip\clskip
  \edef\testit{#1}%
  \ifx\testit\empty\hangafter0\noindent
  \else
    \leavevmode\hbox to\clindent{%
      \ignorespaces#1\hfil}\ignorespaces
  \fi
  \parindent=\the\dimen0\relax
  \ignorespaces}

\def\xscl#1{\clearssclno %
  \dimen0=\the\parindent \parindent=0pt
  % Note the difference between next line and same in \xsscl
  % This seems to be essential
  \ifnum\prevgraf=0\kern-\clindent\else\vskip\sclskip\fi
  \ifclind \hangindent=\sclindent \else\hangindent=\hsclindent\fi
  \clauselevel=2
  \hangafter=1
  \edef\testit{#1}%
  \ifx\testit\empty\hangafter0\noindent
  \else\leavevmode\unskip\hbox to \sclindent{%
    \hskip\clindent\ignorespaces #1\hfil}%
    \ignorespaces
  \fi
  \parindent=\the\dimen0\relax
  \unskip\ignorespaces}

\def\xsscl#1{\clearsssclno % \advance\ssclno by 1
  \dimen0=\the\parindent \parindent=0pt
  \ifdim\hangindent>0pt \kern-\sclindent\else\vskip\ssclskip\fi
  \ifclind \hangindent=\ssclindent \else\hangindent=\hssclindent\fi
  \clauselevel=3
  \hangafter=1
  \edef\testit{#1}%
  \ifx\testit\empty\hangafter0\noindent
  \else
    \leavevmode\unskip\hbox to \ssclindent{%
    \hskip\sclindent
    \ignorespaces #1\hfil}\ignorespaces
  \fi
  \parindent=\the\dimen0\relax
  \unskip\ignorespaces}

\def\xssscl#1{\clearssssclno \cleargreekno % \advance\sssclno by 1
  \dimen0=\the\parindent \parindent=0pt
  \ifdim\hangindent>0pt \kern-\ssclindent\else\vskip\sssclskip\fi
  \ifclind \hangindent=\sssclindent \else\hangindent=\hsssclindent\fi
  \clauselevel=4
  \hangafter=1
  \edef\testit{#1}%
  \ifx\testit\empty\hangafter0\noindent
  \else
    \leavevmode\unskip\hbox to \sssclindent{%
    \hskip\ssclindent
    \ignorespaces #1\hfil}\ignorespaces
  \fi
  \parindent=\the\dimen0\relax
  \aftergroup\ignorespaces}

\def\xsssscl#1{\clearsssssclno \clearcardno
  \dimen0=\the\parindent \parindent=0pt
  \ifdim\hangindent>0pt \kern-\sssclindent\fi
  \ifclind \hangindent=\ssssclindent \else\hangindent=\hssssclindent\fi
  \clauselevel=5 % This is not used as yet
  \hangafter=1
  \edef\testit{#1}%
  \ifx\testit\empty\hangafter0\noindent
  \else
  \leavevmode\unskip\hbox to \ssssclindent{%
    \hskip\sssclindent
    \ignorespaces #1\hfil}\ignorespaces
  \fi
  \parindent=\the\dimen0\relax
  \aftergroup\ignorespaces}

\def\xssssscl#1{% Nothing to clear!
  \dimen0=\the\parindent \parindent=0pt
  \ifdim\hangindent>0pt \kern-\ssssclindent\fi
  \ifclind \hangindent=\sssssclindent
    \else\hangindent=\hsssssclindent\fi
  \clauselevel=6
  \hangafter=1
  \edef\testit{#1}%
  \ifx\testit\empty\hangafter0\noindent
  \else
    \leavevmode\unskip\hbox to \sssssclindent{%
      \hskip\ssssclindent
      \ignorespaces #1\hfil}\ignorespaces
  \fi
  \parindent=\the\dimen0\relax
  \aftergroup\ignorespaces}

% The Recital macros use \xcl and \xscl
% Recitals have the same indentation as Clauses.

\def\rec{\clauselevel=0%
  \advance\recno by1 \xcl{(\char\the\recno)}}% Letter A
\def\srec{\clauselevel=0
  \advance\sclno by1 \xscl{(\romannumeral\the\sclno)}}% Small Roman i

% Now Clauses etc

\def\normalnumbering{%
  \def\cl{\advance\clno by1\xcl{\the\clno.}}%
  \def\scl{\advance\sclno by1\xscl{(\the\sclno)}}%
  \def\sscl{\advance\ssclno by1\xsscl{(\char\the\ssclno)}}%
  \def\ssscl{\advance\sssclno by1\xssscl{%
    (\romannumeral\the\sssclno)}}%
  \def\sssscl{\advance\ssssclno by1 \advance\greekno by1\xsssscl{%
    \ifgreek($\mathchar\the\greekno$)
    \else(\char\the\ssssclno\char\the\ssssclno)\fi}}%
  \def\ssssscl{\advance\sssssclno by1 \advance\cardno by1\xssssscl{%
    \ifcard($\mathchar\the\cardno$)
    \else\ifgreek(\char\the\sssssclno\char\the\sssssclno)
    \else(\char\the\sssssclno\char\the\sssssclno
    \char\the\sssssclno)\fi\fi}}}

\def\computernumbering{%
  \clindent=\the\cnindent
  \sclindent=\the\cnindent
  \ssclindent=\the\cnindent
  \sssclindent=\the\cnindent
  \ssssclindent=\the\cnindent
  \sssssclindent=\the\cnindent
  \hclindent=0pt % Indentation of clauses if clindfalse
  \hsclindent=0pt
  \hssclindent=0pt
  \hsssclindent=0pt
  \hssssclindent=0pt
  \hsssssclindent=0pt
  \def\clearssclno{\ssclno=0}%       97 is `a'
  \def\clearssssclno{\ssssclno=0}%
  \def\clearsssssclno{\sssssclno=0}%
  \def\clearrecno{\recno=0}%
  \def\cl{\advance\clno by1\xcl{\the\clno.}}%
  \def\scl{\advance\sclno by1\xscl{\unskip\the\clno.\the\sclno.}}%
  \def\sscl{\advance\ssclno by1\xsscl{%
    \unskip\the\clno.\the\sclno.\the\ssclno.}}%
  \def\ssscl{\advance\sssclno by1\xssscl{%
    \unskip\the\clno.\the\sclno.\the\ssclno.\the\sssclno.}}%
  \def\sssscl{\advance\ssssclno by1\xsssscl{%
    \unskip\the\clno.\the\sclno.\the\ssclno.\the\sssclno\the\ssssclno.}}%
  \def\ssssscl{\advance\sssssclno by1\xssssscl{%
    \unskip\the\clno.\the\sclno.\the\ssclno.%
    \the\sssclno\the\ssssclno.\the\sssssclno.}}%
  \def\rec{\clauselevel=0%
    \advance\recno by1 \xcl{\unskip\the\recno.}}%
  \def\srec{\clauselevel=0
    \advance\sclno by1 \xscl{\unskip\the\recno.\the\sclno.}}%
  \def\hcl##1\par{\cl{\bf##1}\par\nobreak}%
  }

% The \ncl "clauses" have the same indentation - but no numbers

\def\ncl{\xcl{}}
\def\nscl{\xscl{}}
\def\nsscl{\xsscl{}}
\def\nssscl{\xssscl{}}
\def\nsssscl{\xsssscl{}}
\def\nssssscl{\xssssscl{}}

\def\tcl#1{% For use with text or numbers longer than \clindent.
  \clearsclno% Set scl counter to zero
  \dimen0=\the\parindent\parindent=0pt% store current setting
  \ifclind \hangindent=\clindent \else\hangindent=\hclindent\fi
  \clauselevel=1
  \hangafter=1
  \vskip\clskip
  \leavevmode\hbox{% to\clindent{%
    \ignorespaces#1\space}\ignorespaces
  \parindent=\the\dimen0\relax
  \ignorespaces}

% \def\tscl etc to follow


% Part 8

% The contents, index and cross-reference macros
% First, the commands to use them

\def\contents{\contentstrue \writecontents}
\def\marginalnotes{\marginalnotestrue}

% Minor definitions

\def\ctstitle#1{\gdef\titlename{\vtop{#1}}}% Title used on Contents page
\ctstitle{}% Default is nothing

% Use this for sub-headings in Table of Contents
\def\stitle#1{%
  \xdef\next{\write\cont{\string\centerline{%
  \string\vtop{\string#1}}\par
  \string\nobreak\string\medskip}}\next
  \inform{#1}}

\def\contentsname{Table of Contents}% Obvious.

\gdef\topofcontents{\centerline{\titlefont\titlename}
  \bigskip\centerline{\titlefont\contentsname}
  \vfill} % this material will start the table of contents page
\def\botofcontents{\vfill\eject} % this material will end it
\def\contentspagenumber{-1} % default page number for table of contents
\def\contentsreadfile{\jobname.cts} % file that gets table of contents info
\def\contentswritefile{\jobname.cts} % file that takes it
\def\writecontents{\inform{Opening contents file: }
  \openout\cont=\contentswritefile}
\def\readcontents{\input \contentsreadfile}
\def\leaderfill{\leaders\hbox to .75em{\hss.\hss}\hfil}
\def\clname{Clause}
\def\xreffile{\jobname.xrf}
\def\raggedleft{\leftskip=0pt plus 4em% see tb p101
 \spaceskip=.3333em \xspaceskip=.5em } % Can be used in mnote
\def\bigpenalty{\penalty10000\ }
\def\xrfwarn#1{%
   \xrfmissingtrue
   \warn{This cross-reference (#1) does not exist.}
   \inform{Re-run TeX on the file.}
   }

% Now the contents macros themselves.

\def\printcontents{% Print the contents
  \write\cont{}% ensure that the contents file isn't empty
  \immediate\closeout\cont% contents information has been fully gathered
  \pageno=\contentspagenumber
  \inform{Table of contents: }%
  \topofcontents
  \line{\hfill Page}%
  \medskip
   \advance\baselineskip by0pt plus1pt minus0pt % add some give
   \readcontents\relax % read the contents info
   \botofcontents }% print the contents page(s), don't terminate

% TUGboat 1987/3/310 + tb p 423

\let\hat=\^ % Is this necessary?

% Note that the order of the lines in \specialhat is critical

\def\specialhat{\ifmmode\def\next{^}
  \else\let\next=\checkit\fi\next}
\def\checkit{\futurelet\next\testdoublehat}
\def\testdoublehat{\ifx\next\specialhat\let\next=\silentnote
  \else\visibletrue\let\next=\anote\fi \next}%
\catcode`\^=\active \let ^=\specialhat
\def\silentnote^{\visiblefalse\anote}%
\def\mnote#1{%
  \strut\vadjust{%
    \kern-\dp\strutbox
    \vtop to \dp\strutbox{%
      \vss\baselineskip=\dp\strutbox
%     \moveleft\notespace
      \moveright\notespace\rightline{%
        \rlap{%
          \hbox{%
            \ninebase=12pt \ninepoint
            \vbox to \ht\strutbox{%
              \hsize\maxnote \raggedright
              \tolerance=1000
              \leftskip=0pt
              \rightskip=0pt plus.6\maxnote
              \noindent\bf\strut#1% \strut
              \vss
              }% end of \vbox to \ht\strutbox
            }% end of \hbox
          }%  end of \rlap
        } % end of \rightline
      \null
      }% end of \vtop tp \dp\strutbox
    }% end of \vadjust
  }% end of \mnote

% Note that this now works on the basis that a space before the
% macro is neutral, ie printed unless it follows a macro
% and a space following the macro is ignored. Therefore no added \space
% at the beginning of \silentnote and ignorespaces at the end of \anote
% and possibly also of \mnote.

\def\anote#1{%
  \ifvisible\null\fi
  \ifmarginalnotes\ignorespaces\mnote{#1}\fi
  \ifcontents\ifcase\number\clauselevel%
    \contentsentry{#1}% \clauselevel=0
    \or\clcont{#1}%     \clauselevel=1
    \or\sclcont{#1}%    \clauselevel=2
    \or\ssclcont{#1}%   \clauselevel=3
    \or\sssclcont{#1}%  \clauselevel=4
    \or\inform{This (#1) will not appear in the table of contents}% =5
    \or\inform{This (#1) will not appear in the table of contents}% =6
    \fi\fi%
  \ifvisible#1\else\unskip\ignorespaces\fi
}%

% Now the macros to deal with \cl etc in contents

\def\clcont#1{%
  \xdef\next{\write\cont{\string\line{%
  \setbox0=\hbox{\clname\ \hbox to 20pt{\testit\hfil}}%
  \global\clnamelength=\wd0\copy0#1
  \string\leaderfill\noexpand\number\pageno}}}\next
  \inform{\testit\space#1}}%

\def\sclcont#1{%
  \xdef\next{\write\cont{\line{\hskip\clnamelength%
  \hbox to 25pt{\testit\hfil}#1
  \string\leaderfill\noexpand\number\pageno}}}\next%
  \inform{  \testit\space#1}}%

\def\ssclcont#1{%
  \xdef\next{\write\cont{\line{\hskip\clnamelength\hskip25pt%
  \hbox to 20pt{\testit\hfil}#1
  \string\leaderfill\noexpand\number\pageno}}}\next%
  \inform{      [ascii \testit] #1}}

\def\sssclcont#1{%
  \xdef\next{\write\cont{\line{\hskip\clnamelength\hskip45pt%
  \hbox to 20pt{\testit\hfil}#1
  \string\leaderfill\noexpand\number\pageno}}}\next%
  \inform{      (\romannumeral\the\sssclno) #1}}

\def\contentsentry#1{%
  \xdef\next{\write\cont{\line{#1
    \string\leaderfill\noexpand\number\pageno}}}\next%
  \inform{#1}} % Use this as eg \contentsentry{Parties}


% These are the cross-ref macros by S v. B (adapted)

% First, do we have xrefs?

\def\checkoldxrf{%
  \ifoldxrffile\let\next\relax\else\let\next\getxrefs\fi\next}

\gdef\getxrefs{%
  \null\global\oldxrffiletrue\inform{Opening xrf file }%
  \immediate\openin\xrf=\xreffile\relax
  \ifeof\xrf
   \xrfmissingtrue
   \inform{}%
   \inform{WARNING: \xreffile\space is empty, or does not exist.}%
   \inform{Re-run TeX on the file.}%
   \inform{}%
  \else\xrefstrue\fi
  \immediate\closein\xrf\relax
  \ifxrefs\input\xreffile\relax\fi
  \immediate\openout\xrf=\xreffile\relax
  }

\def\newxref #1#2#3#4#5#6{%
  \expandafter\gdef\csname CLREF-#1\endcsname{#2%
      \inform{    (Cross-reference to #2)}}%
  \expandafter\gdef\csname PAGEREF-#1\endcsname{#6%
      \inform{    (Cross-reference to #6)}}%
  \expandafter\gdef\csname NOTEREF-#1\endcsname{#3%
      \inform{    (Cross-reference to #3)}}%
  \expandafter\gdef\csname SCHEDREF-#1\endcsname{#4%
      \inform{    (Cross-reference to #4)}}%
  \expandafter\gdef\csname APPREF-#1\endcsname{#5%
      \inform{    (Cross-reference to #5)}}%
  }

\def\clref#1{%
  \checkoldxrf
  \expandafter
   \ifx\csname CLREF-#1\endcsname\relax\xrfwarn{#1}\unskip[Clause ???]\fi
  \csname CLREF-#1\endcsname
  }

\def\pararef#1{%
  \begingroup
   \def\clause{Paragraph}%
   \def\subclause{sub-paragraph}%
   \def\paragraph{sub-sub-paragraph}%
   \def\subparagraph{sub-sub-sub-paragraph}%
   \clref{#1}%
  \endgroup
  }

\def\pageref #1{%
  \checkoldxrf
  \ignorespaces
  \expandafter
   \ifx\csname PAGEREF-#1\endcsname\relax\xrfwarn{#1}\unskip[Page ???]\fi
  \csname PAGEREF-#1\endcsname
  }

\def\noteref #1{%
  \checkoldxrf
  \ignorespaces
  \expandafter
   \ifx\csname NOTEREF-#1\endcsname\relax\xrfwarn{#1}\unskip[Footnote ???]\fi
  \csname NOTEREF-#1\endcsname
  }

\def\schedref #1{%
  \checkaux
  \checkoldxrf
  \ignorespaces
  \ifmanyscheds
    \expandafter
    \ifx\csname SCHEDREF-#1\endcsname\relax\xrfwarn{#1}\unskip[Schedule ???]\fi
    \csname SCHEDREF-#1\endcsname
  \else\xrfwarn{#1} the Schedule %
  \fi
  }

\def\appref #1{%
  \checkauxref
  \checkoldxrf
  \ignorespaces
  \ifmanyappends
    \expandafter
    \ifx\csname APPREF-#1\endcsname\relax\xrfwarn{#1}\unskip[Appendix ???]\fi
    \csname APPREF-#1\endcsname
  \else\xrfwarn{#1} the Appendix %
  \fi
  }

\def\xrfwarn#1{%
   \xrfmissingtrue
   \warn{This cross-reference (#1) does not exist.}%
   \inform{Re-run TeX on the file.}%
   }

\def\writexref{\write\xrf}
\def\nsnbps{\noexpand\string\noexpand\bigpenalty\space}% shorthand
\def\nsn{\noexpand\string\noexpand}

\def\clause{Clause}
\def\subclause{sub-clause}
\def\paragraph{paragraph}
\def\subparagraph{sub-paragraph}

\def\xref#1{%
  \checkoldxrf
  \ignorespaces
  \xdef\fct{\the\footmarkcount@}%
  \xdef\schct{\fullnumbers{\the\schedcount}}%
  \xdef\appct{\fullnumbers{\the\appendixcount}}%
  \edef\xreftemp{%
    \nsn\ignorespaces%
    \nsn\newxref%
    {#1}% becomes Parameter 1 to \newxref
    {\ifcase\number\clauselevel%
       \or \nsn\clause\nsnbps\the\clno%
       \or \nsn\subclause\nsnbps(\the\sclno)%
       \or \nsn\paragraph\nsnbps(\char\the\ssclno)%
       \or \nsn\subparagraph\nsnbps(\romannumeral\the\sssclno)%
     \fi}% becomes Parameter 2 to \newxref
    {Footnote\nsnbps\fct}% becomes Parameter 3 to \newxref
    {the \schct\nsnbps Schedule}% becomes Parameter 4 to \newxref
    {the \appct\nsnbps Appendix}% becomes Parameter 5 to \newxref
    }% End of \xreftemp
  \expandafter\expandafter\expandafter%
   \writexref\expandafter{%
    \xreftemp{%
      Page\noexpand\bigpenalty\the\pageno\noexpand\ignorespaces}% Param 6 to \newxref
    \string\unskip}%
    \unskip\ignorespaces}% Final unskip now unnec.

% Gulp


% Part 9 - Miscellaneous macros start here:

\def\hangit{\hangindent\clindent}

\def\per{\ca per\se}

\def\ruledtable{% Get TeXsis macros
  \input txsruled\relax
  \ruledtable}

\def\nofancystuff{% Get rid of fancy fonts, disliked by \write's
  \def\xo{}\def\xxo{}\def\xxxo{}%
  \def\ul{}\def\uul{}\def\uuul{}%
  \def\setamendcount##1{}%
  \def\ignorespaces{}%
  \def\bigpenalty{ }}

\def\inform#1{{\nofancystuff\immediate\write16{#1}}}
\def\warn#1{{\nofancystuff\immediate\write16{}\immediate\write16{WARNING: #1}
  \immediate\write16{}}}

% Manmac macros for verbatim scanning
\chardef\other=12
\def\ttverbatim{\begingroup
  \catcode`\\=\other
  \catcode`\{=\other
  \catcode`\}=\other
  \catcode`\$=\other
  \catcode`\&=\other
  \catcode`\#=\other
  \catcode`\%=\other
  \catcode`\~=\other
  \catcode`\_=\other
  \catcode`\^=\other
  \catcode`\*=\other
  \obeyspaces \obeylines \tt}

\outer\def\begintt{$$\let\par=\endgraf \ttverbatim \parskip=\z@
  \catcode`\|=0 \rightskip-5pc \ttfinish}
{\catcode`\|=0 |catcode`|\=\other % | is temporary escape character
  |obeylines % end of line is active
  |gdef|ttfinish#1^^M#2\endtt{#1|vbox{#2}|endgroup$$}}
\catcode`\|=\active
{\catcode`\^=7
\obeylines \gdef|{\ttverbatim \spaceskip\ttglue \let^^M=\  \let|=\endgroup}}

% macros to demarcate lines quoted from TeX source files
\def\beginlines{\par\begingroup\nobreak\medskip\parindent\z@ \obeylines
  \hrule\kern1pt\nobreak \everypar{\strut}}
\def\nrbeginlines{\par\begingroup\nobreak\medskip\parindent\z@ \obeylines
  \kern1pt\nobreak \everypar{\strut}}
\def\endlines{\kern1pt\hrule\endgroup\medbreak\noindent}
\def\weakendlines{\kern1pt\hrule\endgroup\medskip\noindent}
\def\finalendlines{\kern1pt\hrule\endgroup\medbreak}
\def\nrendlines{\kern1pt\endgroup\smallskip\noindent}

\gdef\blank{\space\hglue\blankskip}%5 Oct 90

\def\noaddr{\phantom{11}\blank\phantom{Rail-}\blank
  \phantom{way}\blank\phantom{Cutt-}\blank\phantom{ings}
  \blank\phantom{Cheam}\blank
  \phantom{Lon-}\blank\phantom{don}\blank\phantom{SW12}
  \blank}

\gdef\noday{\phantom{31st\ }\blank}
\gdef\nomonth{\phantom{January\ }\blank}
\gdef\noyear{\noday\ day of %
  \nomonth\ }
\gdef\nodate{\noyear\number\year\penalty-150\maybespace}

\def\noname{\phantom{Anthony}\blank\phantom{Aloy-}
  \blank\phantom{nsius }\blank\phantom{Hancock}
  \blank}

\def\nopounds{\pounds\phantom{50,000}\maybespace}

\gdef\initials#1{\xdef\inits{#1}}
  \initials{}
\def\exhibit{\advance\exno by1 ``\hbox{\ifx\inits{}
  \else\inits\,\ignorespaces\fi\the\exno}''}

\def\exhibited{produced and shown to me marked \exhibit\maybespace}

\def\bundled{produced and shown to me bundled together %
  and marked \exhibit\maybespace} % note maybespace

\newif\ifversion
\gdef\version#1{%
 \versiontrue
 \edef\versno{#1}
 \footline={\llap{\fiverm\versno}\hss\tenrm\folio\hss}}

% Amstex oldnos macros:
\def\oldnos#1{\ifmmode{\mathcode`\,="013B \fam\@ne#1}\else
  \leavevmode\hbox{$\mathcode`\,="013B \fam\@ne#1$}\fi}

% minor macros from manmac
\def\bull{\vrule height .9ex width .8ex depth -.1ex } % square bullet
\def\|{\leavevmode\hbox{\tt\char`\|}} % vertical line
\def\]{\leavevmode\hbox{\tt\char`\ }} % visible space

\def\Filbreak{\par\vskip\bigskipamount % used in \ssd etc.
 \vfil\penalty-200\vfilneg} % Adapted from \filbreak

% \today etc

\def\st{st}
\def\nd{nd}
\def\rd{rd}
\def\th{th}

\def\addsuffix#1{#1\ignorespaces\ifcase#1%
  \or\st\or\nd\or\rd\or\th\or\th\or\th\or\th\or\th\or\th\or\th
  \or\th\or\th\or\th\or\th\or\th\or\th\or\th\or\th\or\th\or\th
  \or\st\or\nd\or\rd\or\th\or\th\or\th\or\th\or\th\or\th\or\th\or\st\fi}

\def\today{%
  \addsuffix{\number\day}%
  \space
  \ifcase\month\or January\or February\or March\or April\or May\or
  June\or July\or August\or September\or October\or November\or December\fi
  \ifnocommaindate\space\else,\space\fi
  \number\year}

\def\longtoday{%
  \addsuffix{\number\day}%
  \space
  day of\space
  \ifcase\month\or January\or February\or March\or April\or May\or
  June\or July\or August\or September\or October\or November\or December\fi
  \ifnocommaindate\space\else,\space\fi
  \number\year}

\newif\ifwrongmonth
\newcount\feb

\def\leapcheck{%
 \count0=\number\year
 \advance\count0 by-1900
 \count1=\the\count0
 \divide\count0 by4
 \multiply\count0 by4
 \ifnum\count0=\number\count1
  \feb=29%
  \else\feb=28%
 \fi}

\def\increasedays{%
  \ifcase\month% month 0
   \or\daysinmonth{31}% jan
   \or\leapcheck\daysinmonth{\feb}% feb. Not a leap year
   \or\daysinmonth{31}% mar
   \or\daysinmonth{30}% apr
   \or\daysinmonth{31}% may
   \or\daysinmonth{30}% jun
   \or\daysinmonth{31}% jul
   \or\daysinmonth{31}% aug
   \or\daysinmonth{30}% sep
   \or\daysinmonth{31}% oct
   \or\daysinmonth{30}% nov
   \or\daysinmonth{31}% dec
  \fi}

\def\reducedays{%
  \ifcase\month% month 0
   \or\daysinlastmonth{31}% dec
   \or\daysinlastmonth{31}% jan
   \or\leapcheck\daysinlastmonth{\feb}% feb. Not a leap year
   \or\daysinlastmonth{31}% mar
   \or\daysinlastmonth{30}% apr
   \or\daysinlastmonth{31}% may
   \or\daysinlastmonth{30}% jun
   \or\daysinlastmonth{31}% jul
   \or\daysinlastmonth{31}% aug
   \or\daysinlastmonth{30}% sep
   \or\daysinlastmonth{31}% oct
   \or\daysinlastmonth{30}% nov
  \fi}

\def\daysinmonth#1{%
 \ifnum\day>#1 \wrongmonthtrue
  \advance\day by-#1
  \advance\month by1
  \ifnum\month=13 \month=1
   \advance\year by1
  \fi
 \fi}

\def\daysinlastmonth#1{%
 \ifnum\day<1 \wrongmonthtrue
  \advance\day by#1
  \advance\month by-1
  \ifnum\month=0 \month=12
   \advance\year by-1
  \fi
 \fi}

\def\futureday#1{%
 {\advance\day by#1
  \loop
  \wrongmonthfalse
   \begingroup
     \ifnum#1<0
      \aftergroup\reducedays
     \else
      \aftergroup\increasedays
     \fi
   \endgroup
 \ifwrongmonth
  \repeat
 \today
 }}

\def\tomorrow{%
  \futureday{1}}

\def\yesterday{%
  \futureday{-1}}

% Taken from the LaTeX extensions.sty
\def\@dow{\count2 }                        % gets day of the week
\def\@leap{\count5 }                       % leap year fingaler
\def\@x{\count6 }                          % temp register
\def\@y{\count7 }                          % another temp register


\def\dayofweek{{%
%            leap = year + (month - 14)/12;
  \@leap=\month \advance\@leap by -14 \divide\@leap by 12
  \advance\@leap by \year
%            dow = (13 * (month + 10 - (month + 10)/13*12) - 1)/5
  \@dow=\month \advance\@dow by 10
  \@y=\@dow \divide\@y by 13 \multiply\@y by 12
  \advance\@dow by -\@y \multiply\@dow by 13 \advance\@dow by -1 \divide\@dow by 5
%            dow += day + 77 + 5 * (leap % 100)/4
  \advance\@dow by \day \advance\@dow by 77
  \@x=\@leap \@y=\@x \divide\@y by 100 \multiply\@y by 100 \advance\@x by -\@y
  \multiply\@x by 5 \divide\@x by 4 \advance\@dow by \@x
%            dow += leap / 400
  \@x=\@leap \divide\@x by 400 \advance\@dow by \@x
%            dow -= leap / 100 * 2;
%            dow = (dow % 7)
  \@x=\@leap \divide\@x by 100 \multiply\@x by 2 \advance\@dow by -\@x
  \@x=\@dow \divide\@x by 7 \multiply\@x by 7 \advance\@dow by -\@x
  \ifcase\@dow Sunday\or Monday\or Tuesday\or Wednesday\or
      Thursday\or Friday\or Saturday\fi}}


% The signature macros. These have been simplified & extended.

\edef\lincoln{\hbox{Lincoln's Inn}}
\def\grays{\hbox{Gray's Inn}}
\def\temple{\hbox{\Temple}}
\def\middletemple{\hbox{Middle Temple}}
\def\innertemple{\hbox{Inner Temple}}
\let\inn=\lincoln

\def\signed{%
  \par\nobreak
  \vfill
  \hbox{\hskip\signindent\vtop{%
  \parindent0pt
  \inn
  \hbox{\today}}}
  \vfill\vfill}

\def\csettled#1{%
  \par\nobreak
  \vfill
  \hbox{\hskip\signindent\vtop{%
  \advance\hsize by-\signindent
  \parindent0pt
  \raggedright\tolerance=1000
  Settled, \ignorespaces#1
  \vskip\settledgap
  \inn
  \hbox{\today}}}
  \vfill\vfill}

\def\cresettled#1{% Note the \par
  \par\nobreak
  \vfill
  \hbox{\hskip\signindent\vtop{%
  \advance\hsize by-\signindent
  \parindent0pt
  \raggedright\tolerance=1000
  Re-Settled, \ignorespaces#1
  \vskip\settledgap
  \inn
  \hbox{\today}}}
  \vfill\vfill}

\gdef\settled{%
  \csettled{}}

\def\resettled{%
  \cresettled{}}

\def\jointsettled{%
  \multiply\settledgap by2
  \csettled{}}


% Part 10

% The signed sealed and delivered macros

% First, adapt \cases from plain
\def\rcases#1{\left.\vcenter{\normalbaselines\m@th
  \ialign{$##\hfil$&\quad##\hfil\crcr#1\crcr}}\,\right\}}

\def\rbracket#1{\noindent$\rcases{% Put a large bracket at R.
  \tolerance=3000\pretolerance=3000\parskip=0pt\hfuzz=1.75pt
  \hbadness=9999
  \doublehyphendemerits=200
  \finalhyphendemerits=200
  \adjdemerits=200
  \vbox{\hsize=\rbracketsize{#1}}}$}

\def\lbracket#1{\noindent $\cases{% Put a large bracket at L.
  \tolerance=2000\pretolerance=2000\parskip=0pt\hfuzz=1.75pt
  \hbadness=9999
  \doublehyphendemerits=500
  \finalhyphendemerits=200
  \adjdemerits=200
  \vbox{\hsize=\lbracketsize{#1}}}$}

\def\ssgen#1{\clauselevel=0%
  {\raggedright\rbracket{% As \rbracket, but space below text
  #1\hfil\break\vtop to\brackdepth{}}}}

% Text for use in contents macros
\def\attestationtext{Attestation}
\def\electiontext{Fiscal Election}
\def\testimoniumtext{Testimonium}
\def\stampdutytext{Stamp Duty Certificate}


\def\ssd#1{%
  \clauselevel=0%
  \ifnum\ssdcount>0\Filbreak
  \else
   \par\nobreak\bigskip\bigskip^^{\attestationtext}%
  \fi
  \advance\ssdcount by1
  \ssgen{\hbox{SIGNED AS A DEED} by %
  #1 in the presence of---}%
  \par}

\def\ssc#1{%
  \clauselevel=0%
  \ifnum\ssdcount>0\Filbreak
  \else
   \par\nobreak\bigskip\bigskip^^{\attestationtext}%
  \fi
  \advance\ssdcount by1
  \ssgen{\hbox{THE COMMON SEAL of }%
  #1 was affixed hereunto in the presence of---}%
  \par}

\def\ssw#1{%
  \par\nobreak\bigskip\bigskip^^{\attestationtext}%
  \ssgen{\brackdepth=1in SIGNED by #1 %
  the Testator as and for his last Will
  and Testament in our presence and by us in his---}%
  \par}
%
\def\witness{%
  \par\clauselevel=0
  \nobreak\vbox{\bigskip IN WITNESS whereof the parties hereto have signed
  this instrument as a deed in the presence of the persons mentioned
  below}^^{\testimoniumtext}%
  \par}

\def\singlewitness{%
  \par\clauselevel=0
  \nobreak
  \vbox{\bigskip IN WITNESS whereof this instrument has been signed as
    a deed in the presence of the person mentioned
    below}^^{\testimoniumtext}%
  \par}

\def\sworn{%
  \clauselevel=0^^{\attestationtext}%
  \par\nobreak\vskip3\clskip
  \vtop{\rbracket{%
    SWORN at\hfil\break
    \vtop to\normalbaselineskip{}\hfil\break
    in the County of\hfil\break
    this \nodate\break
    before me---\hfil\break
   \vtop to\brackdepth{}\hfil\break
   \hbox{A Solicitor empowered to take Oaths}\hfil}\par}}

\def\whereas{\medskip\clauselevel=0 WHEREAS---}
\def\now{\medbreak\clauselevel=0 NOW THIS DEED WITNESSETH as follows---}
\def\wwhereas{\medskip\clauselevel=0 WHEREAS }
\def\nnow{\medbreak\clauselevel=0 NOW THIS DEED WITNESSETH }

\def\witnessetc{\clauselevel=0 \par
  \nobreak\vbox{\bigskip IN WITNESS, \etc^^{\testimoniumtext}}
  }

\def\swornetc{\clauselevel=0 \par
  \nobreak\vbox{\bigskip SWORN, \etc^^{\testimoniumtext}}
  }

\def\election{\par\cl^^{\electiontext}%
  \unskip\ignorespaces
  The parties hereto hereby elect %
  that the provisions of Section~49~(6) of the %
  Capital Gains Tax Act~1979 %
  and Section~142~(1) of the Inheritance Tax Act~1984 %
  shall apply to the variation hereby made\par}

\def\sdcert#1{\par
  \cl^^{\stampdutytext}It is hereby certified %
   that this instrument %
   falls within category #1 in the Schedule to the %
   Stamp Duty (Exempt Instruments) Regulations~1987\par}

\def\dovcert{\sdcert{L}}
\def\giftcert{\sdcert{M}}

% Somewhat complicated macros to produce automatically
% numbered Schedules and Appendixes

\newcount\appendixcount
\gdef\appendix{%
  \checkaux
  \ifnum\appendixcount=1
    \write\aux{\noexpand\manyappendstrue}%
  \fi
  \clauselevel=0
  \clearclno
  \ifnum\appendixcount>0
    \bigbreak
  \else
    \par\nobreak\bigskip
  \fi
  \advance\appendixcount by1
  \ifmanyappends
    \centerline{^{THE \ucfullnumbers{\the\appendixcount}
      \unskip\space APPENDIX}}
  \else
    \centerline{^{THE APPENDIX}}
  \fi
  \nobreak
  \smallskip}

\gdef\schedule{%
  \checkaux
  \ifnum\schedcount=2
    \write\aux{\string\manyschedstrue}%
  \fi
  \clauselevel=0
  \clearclno
  \ifnum\schedcount>0
    \bigbreak
  \else
    \par\nobreak\bigskip
  \fi
  \advance\schedcount by1
  \ifmanyscheds
    \centerline{^{THE \ucfullnumbers{\the\schedcount}
     \unskip\space SCHEDULE}}
  \else
    \centerline{^{THE SCHEDULE}}
  \fi
  \nobreak
  \smallskip}

\def\fullnumbers#1{%
  \ifcase#1% = zeroth
  \or First%
  \or Second%
  \or Third%
  \or Fourth%
  \or Fifth%
  \or Sixth%
  \or Seventh%
  \or Eighth%
  \or Ninth%
  \or Tenth%
  \else \blank
  \fi}

 \def\ucfullnumbers#1{%
   \expandafter\expandafter\expandafter\uppercase%
     \expandafter{\fullnumbers{#1}}
   }

\newif\ifmanyappends
\newif\ifmanyscheds
\newif\ifauxmissing
\newif\ifauxfile
\newif\ifaux

\def\auxfile{\jobname.aux}

\newread\aux
\newwrite\aux

\def\checkaux{%
 \ifauxfile\let\next\relax\else\let\next\getaux\fi\next}

\gdef\getaux{%
  \null\global\auxfiletrue\inform{Opening aux file }%
  \immediate\openin\aux=\auxfile\relax%
  \ifeof\aux%
   \auxmissingtrue%
   \inform{}%
   \inform{WARNING: \auxfile\space is empty, or does not exist.}%
   \inform{It may be necessary to re-run TeX on the file.}%
   \inform{}%
  \else\auxtrue
  \fi%
  \immediate\closein\aux\relax%
  \ifaux\input\auxfile\relax\fi%
  \immediate\openout\aux=\auxfile\relax%
  }

\def\part#1{% note no \par
  \ifnum\partcount>0\filbreak\else
  \par\nobreak\bigskip\fi
  \advance\partcount by1
  \centerline{^{Part #1}}\smallskip\nobreak}

\def\centertext#1{{\skip0=0pt plus.25\hsize
  \advance \leftskip by \skip0 \advance \rightskip by \skip0
  \parfillskip=0pt \spaceskip=.3333em \xspaceskip=.5em
  \pretolerance=9999 \tolerance=9999
  \hyphenpenalty=9999 \exhyphenpenalty=9999 #1\par}}

\def\maybespace{%
  \futurelet\next\testforother}

\def\testforother{% \noexpand is required to avoid \ref being expanded
  \if\noexpand\next[\let\next=\space % if [  add space
  \else\if\noexpand\next(\let\next=\space % if (  add space
  \else\ifcat\noexpand\next.\let\next=\empty % if . no space
%\else\ifcat\noexpand\next\noexpand\\next=\empty  % if \ no space
% Don't use. It could cause problems if \space followed \ok or \se
% It is not required for \ref
  \else\let\next=\space
%\fi % relates to \ifcat\\
  \fi\fi\fi\next}% Note that \ref still generates a space-then eats it

\def\ca{%
  \begingroup\it\frenchspacing % This deals with, eg. Ltd. and v.
  }
\def\v{\unskip\/\ {\rm v}\maybespace}% taken out of \ca
\def\se{\unskip\/\endgroup\maybespace}% mod aftergroup

\def\bo{\def\on{\unskip\/\ {\rm on }}\begingroup\sl\frenchspacing}
\def\ok{\unskip\/\endgroup\maybespace}

% U.C. hyphens
\def\uc-{\discretionary{\raise.25ex\hbox{-}}{}{\raise.25ex\hbox{-}}}
\def\duc-{\discretionary{\raise.25ex\hbox{-}}{}{}}

% Quotation macros
\def\beginquote{\vskip\the\parskip \vskip-\quoteparskip
  \begingroup\tenpoint
  \parskip=\quoteparskip \parindent=\quoteparindent
  \clskip=\smallskipamount
  \advance\leftskip by \quoteindent \relax
  \par\ifq\leavevmode\llap{``}\fi
  \prevgraf=1
  \DeleteOptionalSpacesandPars{\noindent\ignorespaces}}

\def\endquote{\ignorespaces\ifq\rlap{''}\fi\par\endgroup}
\def\beginsclquote{\beginquote\advance\leftskip by-\clindent}
\def\beginssclquote{\beginquote\advance\leftskip by-\sclindent}
\def\beginsssclquote{\beginquote\advance\leftskip by-\ssclindent}

\newcount\quoteparacount \quoteparacount=0

\long\def\OldQuotes#1\par{%
  \advance\quoteparacount by1%
  {\setbox0=\hbox{``}%
   \setbox1=\vbox{%
   \storeparindent=\the\parindent
   \ifnum\quoteparacount=1 \parindent=0pt\fi
     \advance\hsize by -1.5\wd0%
     \advance\hsize-\the\leftskip
     \leftskip=0pt%
     \leavevmode
     \llap{\hbox to 1.5\wd0{%
       \strut``\hfill}}\unskip#1\unskip\nobreak
       \parindent=\the\storeparindent}%
   \vfuzz=10pt                % suppress overfull warnings
   \splittopskip=0pt          % no skip at top of bix 1
   \count1=0                  % initialise line count
   \par\noindent              % start new paragraph
   \def\rebox{%
     \advance\count1 by1
     \ifnum\count1=1\hbox to1.5\wd0{\strut\hfill}\else
     \ifnum\count1>1\hbox to1.5\wd0{\strut``\hfill}\fi\fi
     \nobreak
     \setbox2=\vsplit 1 to6.1pt
       \vbox{\unvbox2\unskip}%
       \hskip 0pt plus 0pt\relax}%
     \loop
       \rebox                  % do one line at a time
       \ifdim \ht1>0pt         % test if more lines
     \repeat
     \par}}

\def\EndOldQuotes{\unskip\nobreak\hbox to 1.5\wd0{\hfill\strut''}}

\newif\ifosq
\def\newquotes{\osqfalse}
\def\oldquotes{\osqtrue \begindoublequotes}

% Set " to produce `` and '' and for use in \oldquotes
\catcode`\"=\active% Make " an active character

\gdef\begindoublequotes{%% \begindoublequotes enables "
    \global\catcode`\"=\active% Make " an active character
    \global\chardef\dq=`\"% Double-quote char. via \dq
    \global\let\dblqu@te=L% Always start with a left double-quote
    }% End of macro
\let\xxx=\spacefactor% Save the \spacefactor
\let\dblqu@te=L%
\gdef"{%
  \ifinner\else\ifvmode\let\dblqu@te=L\fi\fi
  \if L\dblqu@te\ifosq\OldQuotes\else``\fi\global\let\dblqu@te=R%
  \else
   \let\xxx=\spacefactor% Save the \spacefactor
   \ifosq\EndOldQuotes\else''\fi\global\let\dblqu@te=L%% Insert '' and reset \dblqu@te
   \spacefactor\xxx% Reset the \spacefactor
  \fi% End of \if L\dblqu@te...
  }% End of " macro

\gdef\enddoublequotes{%
  \catcode`\"=12%Set " back to other
  }

% Spacing
\def\,{\hskip.2em\relax}

% top-lap and bottom-lap - previous name of \tlap was \vlap
\def\tlap#1{\vbox to 0pt{\vss#1}} % toplap - 14.12.88
\def\blap#1{\vtop to 0pt{\vss#1}} % bottomlap - 14.12.88

\def\frac#1/#2{\leavevmode\kern.1em
  \raise.5ex\hbox{\the\scriptfont0 #1}\kern-.1em
  /\kern-.15em\lower.25ex\hbox{\the\scriptfont0 #2}}

\def\vfrac#1/#2{\leavevmode$#1\over#2$\space}

% Whether these are miscellaneous is a moot point
% However, here is as good a place as any

\def\ifsinglepage{% This pair of macros needs amneding
  \edef\tempfootline{\the\footline}%
   \ifnum\pageno=1
    \ifnum\vbadness>9999
     \footline=\expandafter{\temptfootline}%
   \else\nopagenumbers\inform{No pagenumbers}\fi\fi}%
  \def\numberpages{\def\singlepage{}}

\def\printsp{%
 \ifsinglepage
  \vfill\supereject
  \backmatter\supereject
 \fi} % should it go here?

\outer\def\bye{\par
 \signoff % This is the signature
  \vfil\supereject
  \backmatter\supereject
  \ifcontents
   \printcontents\contentsfalse\vfill\supereject
  \fi
  \ifxrefs
   \immediate\write\xrf{\noexpand\unskip}% check. Have all writes been written?
   \immediate\closeout\xrf
  \fi
  \ifxrfmissing
   \warn{\xreffile\space is missing or incomplete.}%
   \inform{Run TeX on the file again.}%
  \fi
  \ifaux
   \immediate\write\aux{\noexpand\relax}% check. Have all writes been written?
   \immediate\closeout\aux
  \fi
  \ifauxmissing
   \warn{\auxfile\space is missing or incomplete.}%
   \inform{Run TeX on the file again.}%
  \fi
  \supereject
  \iffax\printfaxsheet\fi
  \ifchit\chit\fi
  \end}

% A fudged bit here to prevent multiple backsheets
% and additional pages containing rubbish.
% Will be corrected in next release

\newif\iflpwbs % if last page was backsheet...

\def\enddoc{\par
  \edef\tempfootline{\the\footline}%
  \iflpwbs\else\signoff\fi % signature/settled
  \vfill\supereject
  \iflpwbs\let\backmatter\empty\fi
  \ifnum\totalpages>1
    \backmatter\supereject\lpwbstrue
  \fi% No backsheet unless text!
  \footline=\expandafter{\tempfootline}%
  \ifcontents\printcontents\contentsfalse\fi
  \ifxrefs\immediate\write\xrf{\string\unskip}
  \fi
  \ifxrfmissing
   \inform{}%
   \inform{WARNING: \xreffile\space is missing or incomplete.}%
   \inform{}%
   \inform{Run TeX on the file again.}%
  \inform{}%
  \fi
  \ifaux\immediate\write\aux{\string\unskip}%
  \fi
  \ifauxmissing % is this necessary?
  \inform{}%
  \inform{WARNING: \auxfile\space is missing or incomplete.}%
  \inform{}%
  \inform{Run TeX on the file again.}%
  \inform{}%
  \fi
  \reset
  }

\def\counsel#1{\edef\counselname{#1}}

\def\formalcounselname{Mr.~\counselname}

\def\signature{\par\nobreak\vskip\the\clskip
 \hskip\signindent\ifx\counselname\undefined{[{\it Counsel's Name\/}]}%
 \else\counselname\fi
 \medskip}

% Other misc macros---
\def\etc{{\it \&c\/}.}

\newdimen\surround \surround=5pt
\def\Boxit#1#2{\vbox{\hrule\hbox{\vrule\kern#1
 \vbox{\kern#1#2\kern#1}\kern#1\vrule}\hrule}}


% Part 11 - backsheet macros

% Miscellaneous

\def\upperc#1{% This enable the first line to be UC
  \ifucfirstline\uppercase{#1} \gdef\upperc##1{##1}\else{#1}\fi}

\def\shift{% Full size or half size backsheets
  \iffullsize\null\else{\hskip1in\hskip.5\hsize}\fi}
% The 1in \hskip in the previous line = the margin of the half size page

\def\xcenterline#1{\line{\shift\hss#1\hss}}
\def\centervers#1{\line{\llap{\fiverm\version}\shift\hss#1\hss}}

% Macros to extract names from files

\def\sols{} % Prevents error messages if undefined
\def\solname{} % ditto
\def\sname#1/#2\par{#1} % Used to extract solname from cref

\def\z:#1:#2\par{%
  \def\anyname{#1}\ifx\solname\anyname
  \afterassignment\endinput\def\sols{#2}\fi}

\gdef\getaddress{%
   \ifx\cref\empty
     \edef\solname{not given, and so}
   \else
     \edef\solname{\expandafter\sname\cref/\par}%
   \fi
   \ifx\sols\empty
     \ifx\cref\empty\else\input\addressfile\relax\fi
   \fi
   \ifx\sols\empty
      \warn{Reference \solname\space not found in file "\addressfile"}%
   \fi}

% Set up the parameters

\def\bsparams{%
 \tolerance=7500
 \doublehyphendemerits=0
 \finalhyphendemerits=10000
 \hyphenpenalty=100
 \parindent=0pt
 \normalbottom
 \pageno=0
 \nopagenumbers
  \advance\vsize\bstopincrease  \advance\vsize\bsbotincrease
  \advance\voffset-\bstopincrease
  \def\addressfile{solicitors}% name of input file
  \twelvebase=12pt\twelvepoint
  \inform{Backsheet for \ifdraft draft \fi\doctype}%
 }

% Backsheets for Opinions
\def\bsop{%
 \getworkdone
 \getbstitlewidth
 \begingroup
 \capacitytrue
 \bsparams
  \ifpleading% try adding \gettitle here and pleadingtrue elsewhere
  \else\xcenterline{{\sl\today}}\vfil\fi
  \xcenterline{\vtop{\openup2\jot
    \halign{\hfil\vtop{\hsize=\bstitlewidth
    \clindent=0pt % I am not sure why this is required. But it is.
    \centertext{##}}\hfil\cr
    \title\crcr}}}%
  \vfil
   \headerfont
   \xcenterline{%
    \setbox0\hbox{\doctype}%
    \ifdim \wd0<\bstitlewidth\copy0
     \else\vtop{\hsize=\bstitlewidth\centertext{\doctype}}\fi}%
  \rm
   \vfil\vfil
   \getaddress
   \halign{\def\temp{##}\xcenterline{\upperc{\temp}}\inform{::\temp::}\cr
  \sols\crcr}%
   \smallskip
   \xcenterline{\eightrm Solicitors' Reference: \sref}%
   \xcenterline{{\eightrm Counsel's Reference: \col/\cref}}%
 \supereject
 \endgroup}

% Not yet working
\def\bscopyop{%
 \getworkdone
 \getbstitlewidth
 \begingroup
 \capacitytrue
 \bsparams
  \ifpleading% try adding \gettitle here and pleadingtrue elsewhere
  \else\xcenterline{{\sl\today}}\vfil\fi
  \xcenterline{\vtop{\openup2\jot
    \halign{\hfil\vtop{\hsize=\bstitlewidth
    \clindent=0pt % I am not sure why this is required. But it is.
    \centertext{##}}\hfil\cr
    \title\crcr}}}%
\vfil
   \headerfont
   \xcenterline{%
    \setbox0\hbox{\doctype}%
    \ifdim \wd0<\bstitlewidth\vtop{%
         \hbox{\llap{\scaps[copy]}\phantom{\doctype}\strut}%
         \hbox{\doctype}}
     \else
      \vtop{\hsize=\bstitlewidth
        \centertext{\llap{\scaps[copy]}\break\doctype}}%
     \fi}%
  \rm
   \vfil\vfil
   \getaddress
   \halign{\def\temp{##}\xcenterline{\upperc{\temp}}%
     \inform{::\temp::}\cr
  \sols\crcr}%
   \smallskip
   \xcenterline{\eightrm Solicitors' Reference: \sref}%
   \xcenterline{{\eightrm Counsel's Reference: \col/\cref}}%
 \supereject
 \endgroup}

\let\doextras\empty

\def\bsdft{%
 \doextras
 \getworkdone
  \getbstitlewidth
 \begingroup
 \capacitytrue
  \bsparams
\ifendorsement\bsendorsement\global\endorsementfalse\fi
 \ifpleading\null
   \else\xcenterline{\underbar{DATED\hskip2in \number\year}}%
   \bigskip
   \vfil\fi
  \xcenterline{\vtop{\openup2\jot
    \halign{\hfil\vtop{\hsize=\bstitlewidth
    \clindent=0pt % I am not sure why this is required. But it is.
    \centertext{##}}\hfil\cr% Are the hfils nec?
    \title\crcr}}}%
  \vfil
  \tabskip=0pt
  \headerfont
  \xcenterline{\vtop{\openup2\jot
  \halign{\hfil##\hfil\cr
  \ifdraft \llap{\it draft/}\hfill\fi\cr
  \noalign{\smallskip}%
  \setbox0\hbox{\doctype}%
   \ifdim \wd0<\bstitlewidth\copy0
   \else\vtop{\hsize=\bstitlewidth\centertext{\doctype}}\fi\crcr}}}%
  \rm
  \smallskip
  \vfil\vfil
 \getaddress
 \halign{\def\temp{##}\xcenterline{\temp}\inform{::\temp::}\cr
   \ifx\sols\empty\else\sols\fi\crcr}%
 \smallskip
 \ifx\sref\empty
  \else\xcenterline{{\eightrm Solicitors' Reference: \sref}}\fi
 \ifx\cref\empty
  \else\xcenterline{{\eightrm Counsel's Reference: \col/\cref}}\fi
 \ifversion\leftline{\llap{\fiverm\versno}}\fi
 \supereject
 \endgroup
%\global\maxp@rtywidth=\the\maxpartywidth
\resetpleadingdefaults}


% Fee Chits

% Chit user macros

\def\solsref#1{\def\sref{#1}}
\def\colsref#1{\def\cref{#1}}
\def\timetaken#1{\def\timespent{#1}}
\def\casetype#1{\def\typeofcase{#1}}
\def\value#1{\def\amountatstake{#1}}
\def\difficulty#1{\def\howhard{#1}}
\def\proposedfee#1{\def\suggestedfee{#1}}
\def\legalaidno#1{\def\legalaid{#1}}
\def\comments#1{\def\remarks{#1}}

% Now the chit macros themselves
\def\chit{%
 \begingroup
  \parindent=0pt
  \inform{Fee Chit}%
  \pageno=1
  \nopagenumbers
  \def\\{ }
\maxp@rtywidth=.5\hsize
  \ifpleading\def\title{\chittitle\hfil}\fi
  \def\cr{\par}\def\noalign{}%
  \tenbase=12.5pt \tenpoint
\def\scriptsize{\let\rm\eightrm}%
  \def\chittext{%
   \parskip=0pt
  \raggedright \tolerance=10000
\hbadness=10000
  \uchyph=0
   {\bf Date:} \today\quad {\bf cref:} \col/\cref\par
   {\bf sref:} \sref\par
   {\bf Title:} {\def\hfill{}\frenchspacing\title\strut}\par
   {\bf Legal Aid No:} \legalaid\par
   {\bf Work Done:} \workdone.\par
   {\bf Time Spent:} \ifx\timespent\empty\else\timespent\ hours\fi\par
   {\bf Value:} \pounds\amountatstake\par
   {\bf Difficulty:} \howhard\par
   {\bf Type of Case:} \typeofcase\par
   {\bf Suggested Fee:} \pounds\suggestedfee\par
   {\bf Filename:} {\tt\jobname}\par
   {\bf Remarks:} \remarks\par
  }% end of chittext
  %
  \leftline{{\it Clerk's Copy}\hfil}
  \chittext
  \vskip1in
  \leftline{{\it Counsel's Copy}\hfil}
  \chittext
  \vfil
  \supereject
 \endgroup}

\gdef\getworkdone{%
  {\nofancystuff
  \tempwd=\expandafter{\workdone}%
  \def\temppunct{\expandafter\if\the\tempwd\empty\else, \fi}%
  \xdef\workdone{\the\tempwd\temppunct
   \ifx\signoff\settled\ draft \fi\doctype
  \ifversion\space(\versno)\fi}}}


% Part 12---Advisory and non-litigious drafting

% The TUG macros (taken from tugboat.sty) which delete spaces etc
\def\if@baseis@next{\ifx\@basetoken\@nexttoken}

\long\def\@checknexttoken #1#2#3{%
  \futurelet\@basetoken\iffalse#1\fi
  \long\def\@next{%
    \if@baseis@next
      \long\def\@@next{#2}%
    \else\long\def\@@next{#3}\fi
    \@@next}%
  \futurelet\@nexttoken\@next}

% execute #2 after ignoring (possibly) one occurrence of #1
\long\def\@ignoreone#1#2{%
  \def\@ignoreform#1{#2}%
  \@checknexttoken{#1}{\@ignoreform}{#2}%
  }

% execute #2 after ignoring all occurrences of #1
\long\def\@ignoreall#1#2{%
  \def\@ignoreform#1{\@ignoretest}%
  \def\@ignoretest{\@checknexttoken{#1}{\@ignoreform}{#2}}%
  \@ignoretest
  }

% execute #1 after ignoring spaces
\def\DeleteOptionalSpaces#1{%
  \@ignoreall{ }{#1}%
  }

% execute #1 after ignoring spaces and \pars
\def\DeleteOptionalSpacesandPars#1{%
  \@ignoreall{ }{\@ignoreall{\par}{#1}}%
  }

%  Checking and reading options.
%  To check for the next optional argument, the macros must look
%  ahead to the next character.  If the next character is a `[',
%  the option-reading mechanism is invoked.  This check may be suppressed if
%  the user has executed the \lastoption option.  If \@lastoption is
%  "true" or if the [ is NOT next, the macro goes on to reading any
%  arguments and executing appropriately.

\def\@checkoptions{%
  \if@lastoption
    \def\@next{\@executetoend}%
  \else
    \def\@next{\@checknexttoken {[}{\@readoptions}{\@executetoend}}%
  \fi
  \@next
  }

% The default parameters used in advisory work

\def\pageparameters{%
  \widowpenalty=7500
  \def\footnoterule{}%
  \parindent=20pt
  \quoteindent=20pt
  \twelvepoint
  }

\def\advising#1{%
  \enddoc
  \ifpleading\gettitle\fi
  \pageparameters
  \inform{#1}%
  \chittrue % print a fee chit
  \def\doctype{#1}%
   \let\backmatter=\bsop
   \let\signoff=\signed
  \clindfalse
  \centerline{\headerfont #1}
  \nobreak\vskip10pt
  \DeleteOptionalSpacesandPars{\noindent\ignorespaces}}


\def\opinion{%
  \advising{Opinion}}
\def\note{%
  \advising{Note}}
\def\advice{%
  \advising{Advice}}
\def\jopinion{%
  \let\signed\jsigned
  \advising{Joint Opinion}}
\def\nopinion{%
  \advising{}}
\def\jnote{%
  \let\signed\jsigned
  \advising{Joint Note}}

\def\draftparameters{%
  \widowpenalty=7500
  \def\footnoterule{}%
  \parindent=0pt
  \quoteindent=\the\clindent
  \twelvepoint
}

\gdef\draft#1{%
  \ifended\endedfalse
  \else\enddoc
  \fi
  \begingroup
   \amendtextfalse
   \gdef\doctype{#1}%
   \inform{\ifdraft draft \fi#1}%
  \endgroup
   \draftparameters
   \chittrue
   \let\backmatter=\bsdft
   \ifdraft\let\signoff\settled % see \chit
    \else\let\signoff\empty\fi
   \clindtrue
   \lpwbsfalse}%

\def\conference{%
  \inform{Conference}%
  \chittrue
  \def\doctype{Conference}%
  \getworkdone}% normally set by backsheet

\def\telcon{%
  \inform{Telephone Conference}%
  \chittrue
  \def\doctype{Telephone Conference}%
  \getworkdone}


% Part 13---Pleadings

% Note: The pleadings macros are in the process of being rewritten.
% As a result they contain a blend of stuff from the old and new
% systems and some macros have been left in order to provide continuity.
% In other words, they are a mess at the moment.

% First a whole block of defs, some of which are no longer needed
\newdimen\storeparindent

\def\solicitors{Solicitors} % change to single for sole practitioner
\def\plaintiffs{} % List macro (tb 378), names of plaintiffs
\def\defendants{} % ditto, defendants
\def\thirdparties{} % ditto
\def\plaintiffsaddrs{} % ditto; addresses
\def\defendantsaddrs{}
\def\thirdpartiesaddrs{}
\def\matters{}  % List macro
\def\partyname{} % Temporary storage of individual party's name.
\def\outofrange{\noaddr} % If too few \of's, use blank address.
\def\courtname{\phantom{BORCHESTER}}%
\def\issuer{}
\def\chambers{\blank in \blank,} % Is this necessary?
\def\depsname{\blank} % name of deponent in aff endorse.
\def\shortname#1{\def\depsname{#1}}
\def\capacity#1{\ifcapacity ({\it #1\/})\else\unskip\fi}

\def\firm{\capacity{a firm}}
\def\widow{\capacity{Widow}\female}
\def\minor{\capacity{a Minor}}
\def\patient{\capacity{a Patient}}
\def\mw{\capacity{Married Woman}\female}
\def\co{\capacity{a Company}}
\def\tradingas#1{\capacity{Trading as #1}}
\def\as#1{\capacity{#1}}
\def\female{\unskip
 \ifplaintiff\femalepltrue\fi
 \ifdefendant\femaledeftrue\fi
 \ifthirdparty\femaletptrue\fi}
%\def\re{}
%\def\res{}
\def\theirsols{\noname} % redefine if necessary
\def\theirsolsaddr{\noaddr} % ditto
\def\doctype{}
\def\appellant{\global\appealtrue \plaintiff}
\def\applicant{\global\applicationtrue \plaintiff}
\def\respondent{\defendant}
\def\petitioner{}
\def\petitioner#1{\global\petitiontrue \def\petitioner{#1}}
\def\amend{}
\def\address#1{\def\address{#1}}
\def\petitionersaddress#1{\def\petitionersaddress{#1}}
\def\xheading#1{\removelastskip\medskip\goodbreak
  \noindent{\bf #1}\nobreak}

\newif\ifappeal
\newif\ifcountycourt
\newif\ifcourtofappeal
\newif\ifpetition
\newif\ifapplication

\newif\ifplaintiff
\newif\ifdefendant
\newif\ifthirdparty
\newif\iffourthparty
\newif\ifappellant
\newif\ifrespondent
\newif\ifapplicant

\newif\ifpluralplaintiff
\newif\ifpluraldefendant
\newif\ifpluralthirdparty
\newif\ifpluralfourthparty
\newif\ifpluralappellant
\newif\ifpluralrespondent
\newif\ifpluralapplicant

\newif\ifclientpl
\newif\ifnoparties
\newif\ifcapacity
\newif\ifintendedaction
\newif\ifaffidavit % check this
\newif\iffemalepl
\newif\iffemaledef
\newif\iffemaletp

\def\intendedparties{\global\intendedactiontrue}

\def\whenadded{\quad ~~/~~/91}
\def\added{(added\whenadded)}

\newcount\plcount % total number of plaintiffs
\newcount\dfcount % total number of defendants
\newcount\tpcount % total number of third parties
\newcount\partyno % This party - temporary storage
\newcount\testone % Temporary storage
\newcount\testtwo % Temporary storage
\newcount\mattercount % No. of Matters.

\def\claims{%
   \vskip\the\clskip
   \clearclno
   {\scaps And the \plaintfs}\ \wants---}
\def\claim{\claims}

% List macros, taken from the T.B. page 378 ff.

\toksdef\ta=0 \toksdef\tb=2 % token list registers for temp use
\newcount\cardcount

\def\rightappenditem#1\to#2{\ta={\\{#1}}\tb=\expandafter{#2}%
 \edef#2{\the\tb\the\ta}}%
\def\select#1\of#2\to#3{\def#3{\outofrange}%
 \long\def\\##1{\advance#1-1 \ifnum#1=0 \def#3{\relax##1}\fi}#2}%
\def\cardinality#1\to#2{#2=0 \long\def\\##1{\advance#2 by 1 }#1}


% Some dimensions to help with formatting of parties

\newdimen\plwidth \plwidth=0pt
\newdimen\dfwidth \dfwidth=0pt
\newdimen\tpwidth \tpwidth=0pt
\newdimen\allwidths \allwidths=0pt
\newdimen\maxp@rtywidth \maxp@rtywidth=4.5in
\newdimen\partyhang \partyhang=0pt

% Macros that add plaintiff's name etc to the list
% These macros are quite complicated since they use \csname
% and \endcsname, sometimes to excess

\def\plaintiffsstuff{}
\def\defendantsstuff{}
\def\thirdpartiesstuff{}
\def\currentpartyaddrs{}

\newcount\andcount
\newcount\testthree
\newcount\testfour

\newtoks\tc
\newtoks\tx
\newtoks\cpatoks
\newtoks\cpstoks
\newtoks\cpsctoks
\newtoks\cpfctoks
\newtoks\cpntoks
\newtoks\cpwtoks

\def\upit{\global\advance\testtwo by-1
  \global\advance\testthree by-1}

\def\uupit{\global\advance\testtwo by0
  \global\advance\testthree by-2}

\def\downit{\unskip}

\def\of#1{% Address of party
  \advance\andcount by1
  \edef\abode{%
   \ifcase\andcount%
    \or{of}
    \or{both of}
   \else{all of}
   \fi}
  \ta={\\} \tb=\expandafter{\currentpartyaddrs}%
  \tc=\expandafter{\abode#1\, }%
  \expandafter\edef\csname\expandafter
   \gobble\the\cpatoks\endcsname{\the\tb\the\ta{\the\tc}}%
  \ta={\\} \tb=\expandafter{\currentpartystuff}%
   \tc=\expandafter{\downit}%
  \expandafter\edef\csname\expandafter\gobble\the\cpstoks
   \endcsname{\the\tb\the\ta{\the\tc}}%
  \andcount=0
  }

\def\and{% For use where two parties have same address
  \advance\andcount by1
  \ta={\\} \tb=\expandafter{\currentpartyaddrs}%
  \tc=\expandafter{and}%
  \expandafter\edef\csname\expandafter\gobble\the\cpatoks
   \endcsname{\the\tb\the\ta{\the\tc}}%
  \ta={\\} \tb=\expandafter{\currentpartystuff}%
   \tc=\expandafter{\upit}%
  \expandafter\edef\csname\expandafter\gobble\the\cpstoks
   \endcsname{\the\tb\the\ta{\the\tc}}%
  \expandafter\advance\csname\expandafter\gobble\the\cpsctoks
   \endcsname by-1
  }

% The \, in \tc may not be working
\def\nand{% For use where more than two parties have same address
  \advance\andcount by1
  \ta={\\} \tb=\expandafter{\currentpartyaddrs}%
   \tc=\expandafter{\, }%
  \expandafter\edef\csname\expandafter\gobble\the\cpatoks
   \endcsname{\the\tb\the\ta{\the\tc}}%
  \ta={\\} \tb=\expandafter{\currentpartystuff}%
  \tc=\expandafter{\upit}% Formerly \uupit
  \expandafter\edef\csname\expandafter\gobble\the\cpstoks
    \endcsname{\the\tb\the\ta{\the\tc}}%
  \expandafter\advance\csname\expandafter\gobble\the\cpsctoks
    \endcsname by-1
  }

\def\converttc#1#2{% let <control word> = other word...
 \expandafter\expandafter\let\expandafter#1%
  \csname\expandafter\gobble\the#2\endcsname
 }

% If this macro is called eg with the parameter \plaintiff
% it lets eg \currentpartyshortcount=\plaintiffshortcount

\def\converttokens#1{% A general purpose macro...
  \cpsctoks=\expandafter{\string#1shortcount}%
  \converttc{\currentpartyshortcount}{\cpsctoks}%
  \cpfctoks=\expandafter{\string#1fullcount}%
  \converttc{\currentpartyfullcount}{\cpfctoks}%
  \cpatoks=\expandafter{\string#1addrs}%
  \converttc{\currentpartyaddrs}{\cpatoks}%
  \cpstoks=\expandafter{\string#1stuff}%
  \converttc{\currentpartystuff}{\cpstoks}%
  \cpntoks=\expandafter{\string#1}%
  \converttc{\currentpartynames}{\cpntoks}%
  \cpwtoks=\expandafter{\string#1width}%
  \converttc{\currentpartywidth}{\cpwtoks}%
  }

% This macro is calld by eg \plaintiff
% In that case #1 is \plaintiff and #2 the actual name of the
% Plaintiff in question (eg JOHN SMITH)
% In the next edition it will do rather more than it does now.

\def\party#1#2{%#1=party, #2=name
  \converttokens{#1}%
  \unskip
  \cardinality\currentpartyaddrs\to\cardcount
  \ifnum\currentpartyfullcount>\the\cardcount
   \of{\noaddr}%
  \fi
  \global\expandafter\advance\csname\expandafter\gobble\the\cpfctoks
   \endcsname by1
  \global\expandafter\advance\csname\expandafter\gobble\the\cpsctoks
   \endcsname by1
  \setbox0=\hbox{#2}%
  \ifdim\wd0>\the\maxp@rtywidth
    \global\csname\expandafter\gobble\the\cpwtoks
     \endcsname=\the\maxp@rtywidth
  \else\ifdim\currentpartywidth<\wd0%
    \csname\expandafter\gobble\the\cpwtoks\endcsname=\wd0
  \fi\fi
  \converttc{\currentpartywidth}{\cpwtoks}% Reset
  \unskip
  \ifdim\allwidths<\currentpartywidth
   \allwidths=\the\currentpartywidth\fi
  \ta={\\} \tb=\expandafter{\currentpartynames}%
  \tc=\expandafter{#2}%
  \expandafter\edef\csname\expandafter\gobble\the\cpntoks
   \endcsname{\the\tb\the\ta{\the\tc}}%
  \ifnum\currentpartyfullcount=1 \andcount=0\fi
  }


% This macro recovers the parties so that their names can be formatted
% The logic in it is still far from perfect
% It is intended to put "and" in the right place, but sometimes fails...

\newif\ifnoandneeded
\edef\testand{\relax and}

\def\getparties#1#2{% #1=partylist,#2=partytext
  \converttokens{#1}%
  \unskip%
  \testone=0\testtwo=0%
  \testthree=\the\currentpartyfullcount%
  \testfour=\the\currentpartyshortcount%
  \ifnum\currentpartyfullcount>\the\cardcount%
   \advance\andcount by1%
   \edef\abode{% Print addresses
    \ifcase\andcount%
     \or{of}%
     \or{both of}%
    \else{all of}%
    \fi}%
   \rightappenditem\abode\to\currentpartyaddrs%
   \rightappenditem{}\to\currentpartystuff%
  \fi%
  \unskip
  \loop
   \begingroup
    \global\advance\testone by1%
    \global\advance\testtwo by1%
    \partyno=\the\testone%
    \select\partyno\of\currentpartynames\to\partyname%
     \partyno=\the\testone% reset the counter%
    \select\partyno\of\currentpartyaddrs\to\partyaddress%
     \partyno=\the\testone% reset the counter
    \select\partyno\of\currentpartystuff\to\partystuff%
    \partystuff\unskip\relax%
      \ifnum\testone>1
         {\ifnum\testtwo=\the\currentpartyshortcount
           {\ifnoandneeded
             \else\unskip\ and%
            \fi
           }%
           \global\advance\testtwo by1
          \fi
         }%
      \fi
    \ifx\partyaddress\testand \global\noandneededtrue
     \else\global\noandneededfalse
    \fi
    \ifx\partyaddress\empty\let\partyaddress\noaddr\fi%fudge
    \unskip\ \partyname\ \partyaddress%
   \endgroup
   \ifnum\testone<\the\currentpartyfullcount%
  \repeat%
  #2}

% A number of these are not yet used
% (and may never be used)

\def\getpls{\getparties{\plaintiffs}{\pltext}}
\def\getdefs{\getparties{\defendants}{\dftext}}
\def\gettps{\getparties{\thirdparties}{\tptext}}
\def\getfps{\getparties{\fourthparties}{\fptext}}
%\def\getaps{\getparties{\appellants}{\aptext}}
%\def\getresp{\getparties{\respondents}{\rptext}}
%\def\getapplics{\getparties{\applicants}{\altext}}

\newcount\plshortcount
\newcount\dfshortcount
\newcount\tpshortcount
\newcount\fpshortcount
%\newcount\apshortcount
%\newcount\rpshortcount
%\newcount\alshortcount

\newcount\plaintiffsshortcount
\newcount\defendantsshortcount
\newcount\thirdpartiesshortcount
\newcount\fourthpartiesshortcount
%\newcount\appellantsshortcount
%\newcount\respondentsshortcount
%\newcount\applicantsshortcount

\newcount\plaintiffsfullcount
\newcount\defendantsfullcount
\newcount\thirdpartiesfullcount
\newcount\fourthpartiesfullcount
%\newcount\appellantsfullcount
%\newcount\respondentsfullcount
%\newcount\applicantsfullcount

\newdimen\plaintiffswidth
\newdimen\defendantswidth
\newdimen\thirdpartieswidth
\newdimen\fourthpartieswidth
%\newdimen\appellantswidth
%\newdimen\respondentswidth
%\newdimen\applicantswidth

\def\unsetallparties{%
 \plaintifffalse
 \defendantfalse
 \thirdpartyfalse
 \fourthpartyfalse
 }

\def\plaintiff#1{\unsetallparties\plaintifftrue
 \party{\plaintiffs}{#1}}
\def\defendant#1{\unsetallparties\defendanttrue
 \party{\defendants}{#1}}
\def\thirdparty#1{\unsetallparties\thirdpartytrue
 \party{\thirdparties}{#1}}
\def\fourthparty#1{\unsetallparties\fourthpartytrue
 \party{\fourthparties}{#1}}
%\def\appellant#1{\unsetallparties\appellanttrue
% \party{\appellants}{#1}}
%\def\respondent#1{\unsetallparties\respondenttrue
% \party{\respondents}{#1}}
%\def\applicant#1{\unsetallparties\applicanttrue
% \party{\applicants}{#1}}

\def\listpls{\listparties{\plaintiffs}}
\def\listdfs{\listparties{\defendants}}
\def\listtps{\listparties{\thirdparties}}
\def\listfps{\listparties{\fourthparties}}
%\def\listaps{\listparties{\appellants}}
%\def\listrps{\listparties{\respondents}}
%\def\listapplics{\listparties{\applicants}}

\def\slistpls{\slistparties{\plaintiffs}}
\def\slistdfs{\slistparties{\defendants}}
\def\slisttps{\slistparties{\thirdparties}}
\def\slistfps{\slistparties{\fourthparties}}
%\def\slistaps{\slistparties{\appellants}}
%\def\slistrps{\slistparties{\respondents}}
%\def\slistapplics{\slistparties{\applicants}}

\gdef\pluraltext{%
    \gdef\addressis{addresses are}%
    \gdef\seek{seek}%
    \gdef\wants{claim}%
    \gdef\respectively{respectively}%
    \gdef\them{them}%
    \gdef\do{do}%
    }

\gdef\singulartext{%
    \gdef\addressis{address is}%
    \gdef\seek{seeks}%
    \gdef\wants{claims}%
    \gdef\respectively{\unskip}%
    \gdef\do{does}%
    \gdef\them{him}%
    }

\gdef\pltext{%
  \ifnum\plaintiffsfullcount>1%
    \gdef\plaintfs{\Plaintiffs}%
    \pluraltext
  \else%
    \ifpluralplaintiff%
    \gdef\plaintfs{\Plaintiffs}%
    \pluraltext
  \else%
    \gdef\plaintfs{\Plaintiff}%
    \singulartext
  \fi\fi}

\gdef\dftext{%
  \ifnum\defendantsfullcount>1%
    \gdef\dfdants{\Defendants}%
    \pluraltext
  \else%
    \ifpluraldefendant%
    \pluraltext
  \else%
    \gdef\dfdants{\Defendant}%
    \singulartext
    \gdef\them{\iffemaledef her\else him\fi}%
  \fi\fi}%

\gdef\tptext{%
  \ifnum\thirdpartiesfullcount>1%
    \gdef\thirdparts{Third Parties}%
    \pluraltext
  \else%
    \ifpluralthirdparty%
    \gdef\thirdparts{Third Parties}%
    \pluraltext
  \else%
    \gdef\thirdparts{Third Party}%
    \singulartext
  \fi\fi}

\gdef\fptext{%
  \ifnum\fourthpartiesfullcount>1%
    \gdef\fourthparts{Fourth Parties}%
    \pluraltext
  \else%
    \ifpluralfourthparty%
    \gdef\fourthparts{Fourth Parties}%
    \pluraltext
  \else%
    \gdef\fourthparts{Fourth Party}%
    \singulartext
  \fi\fi}

%\gdef\aptext{%
%  \ifnum\appellantsfullcount>1%
%    \gdef\plaintfs{Appellants}%
%    \pluraltext
%  \else%
%    \ifpluralappellant%
%    \gdef\plaintfs{Appellants}%
%    \pluraltext
%  \else%
%    \gdef\plaintfs{Appellant}%
%    \gdef\addressis{address is}%
%    \pluraltext
%  \fi\fi}
%%
%\gdef\rptext{%
%  \ifnum\respondentsfullcount>1%
%    \gdef\dfdants{Respondents}%
%    \pluraltext
%  \else%
%    \ifpluralrespondent%
%    \gdef\dfdants{Respondents}%
%    \pluraltext
%  \else%
%    \gdef\dfdants{Respondent}%
%    \singulartext
%  \fi\fi}%
%%
%\gdef\altext{%
%  \ifnum\applicantsfullcount>1%
%    \gdef\plaintfs{Applicants}%
%    \pluraltext
%  \else%
%    \ifpluralappellant%
%    \gdef\plaintfs{Applicants}%
%    \pluraltext
%  \else%
%    \gdef\plaintfs{Applicant}%
%    \singulartext
%  \fi\fi}
%%
% Phew. I reckon those need amending...

% This is one macro that will soon go, being replaced by
% \pleading and \spleading

\def\topofpleading#1#2{% doctype & ct
  \reset
  \storeparindent=\the\parindent
  \global\parindent=0pt
  \def\doctype{#1}
  \ct=#2
  \pleadingtrue
  \clientpltrue
  \gettitle
  \def\backsheet{\enddoc\bsdft}
  \heading
  \parties}

% So will this. It will be \let equal to \pleading

\def\generic#1{%
  \reset
  \def\doctype{\vtop{\centertext{#1}}}
  \heading
  \ifnoparties\else\parties\fi
  \centertext{#1}
  \medskip}

\def\am@nd{%
  \ifnum\amendcount>2{\uuul RE-}\fi
  \ifnum\amendcount>1{\uul RE-}\fi
  \ifnum\amendcount>0{\ul AMENDED }\fi
  }

\def\pleading#1{% doctype
  \storeparindent=\the\parindent
  \global\parindent=0pt
  \draft{\am@nd#1}
  \pleadingtrue
  \gettitle
  \heading
  \parties
  \ifdraft
   \def\signoff{\endofpleading\settled}%
  \else\let\signoff\endofpleading\fi
  \medbreak
  \leavevmode
  \centertext{\am@nd#1}%
  \nobreak
  \amendnote}

\def\spleading#1{% doctype
  \storeparindent=\the\parindent
  \global\parindent=0pt
  \draft{\am@nd#1}
  \pleadingtrue
  \gettitle
  \heading
  \sparties
  \ifdraft
   \def\signoff{\endofpleading\settled}%
  \else\let\signoff\endofpleading\fi
  \medbreak
  \centertext{\am@nd#1}%
  \nobreak
  \amendnote}

\def\gettitle{% This needs a lot of work
  \pltext\dftext\tptext % added to deal with ops on their own
  \getbstitlewidth
  \gdef\title{%
   \global\maxp@rtywidth=\the\bstitlewidth
    \centerline{\court}\cr
    \scaps
    \division\cr
    \regis\cr
    \reference\cr
    \noalign{\bigskip}%
    \rm
    \centertext{\inthematter}\cr
    \noalign{\medskip}%
    \slistpls\cr
    \hfill\it\plaintfs\cr
    \against\cr
    \strut\cr
    \slistdfs\cr
    \hfill\it\dfdants\cr}%
   \global\maxp@rtywidth=\the\maxpartywidth}

\def\headingskip{\vskip-\lastskip\smallskip}

\gdef\heading{% Can this be broken down further?
  \vbox{\baselineskip=15pt
   \line{\court\hfil\reference}%
   \headingskip
   \scaps % Turn on caps and smallcaps
    \apcourt
    \headingskip
    \division
    \headingskip
    \regis
    \headingskip
    \subdivision
    \headingskip
    \judgename
    \headingskip
    \rm % Back to roman
    \Writissued
    \headingskip
    \inthematter
    }% end of vbox
  \medskip}

\def\parties{%
  \capacitytrue
  \pltext% set up the alternative text for `his', `their', etc.
  \dftext
  \tptext
  {\noindent\leftline{BETWEEN\raise.15ex\hbox{---}}
  \bigskip
  % The next few lines box up the parties.
  \centerline{\hbox{\vtop{\baselineskip=15pt %Baselineskip in parties
    \halign{\hfill ##\hfill\cr
    \listpls\cr
  \relax\hidewidth\rightline{\hfil\it
    \ifintendedaction Intended\ \fi\plaintfs}
  \hidewidth\relax\cr
    \hfill \against\hfill\cr
    \strut\cr
  \listdfs\cr
  \relax\hidewidth\rightline{\it
    \ifintendedaction Intended\ \fi\dfdants}
  \hidewidth\relax\cr
  \ifthirdparty
    \hfill \against\hfill\cr
    \strut\cr
  \listtps\cr
  \relax\hidewidth\rightline{\it
    \ifintendedaction Intended\ \fi\thirdparts}
    \hidewidth\relax\cr\fi
  }}}}}%
  \twelvepoint\bigskip
  \capacityfalse}

% Short version of parties for affy's, etc.

\def\sparties{%
  \capacitytrue
  \pltext % set up the alternative text for `his', `their', etc.
  \dftext
  \tptext
  {\noindent\leftline{BETWEEN\raise.15ex\hbox{---}}
  % The next few lines box up the parties.
  \centerline{\hbox{\vtop{\baselineskip=15pt
    \halign{\hfill ##\hfill\cr
    \slistpls\cr
  \relax\hidewidth\rightline{\hfill\it
    \ifintendedaction Intended\ \fi\plaintfs}
    \hidewidth\relax\cr
    \hfill \against\hfill\cr
    \strut\cr
    \slistdfs\cr
   \relax\hidewidth\rightline{\hfill\it
    \ifintendedaction Intended\ \fi\dfdants}
    \hidewidth\relax\cr
  \ifthirdparty
    \hfill \against \hfill\cr
    \strut\cr
    \slisttps\cr
  \relax\hidewidth\rightline{\hfill\it
    \ifintendedaction Intended\ \fi\thirdparts}
    \hidewidth\relax\cr\fi}}%
  }}}%
  \bigskip
  \capacityfalse}%

\def\listparties#1{% #1=partylist (eg \plaintiffs)
  \converttokens{#1}%
  \testone=0\def\\##1{\relax##1\cr}%
  \tabskip=0pt
  \vtop{\hsize=\the\maxp@rtywidth
    \hyphenpenalty=10000\tolerance=2750
    \ifnum\currentpartyfullcount>1
      \halign{\global\advance\testone by1
      \hfil
      \llap{(\the\testone)\quad}
      \vtop{%
        \hsize=\the\currentpartywidth
        \hangafter1\hangindent\the\partyhang
        \strut##\strut}% end of \vtop
      \hfil\cr#1}% end of \halign
     \else
      \ifnum\currentpartyfullcount=1
      \partyno=1
      \select\partyno \of#1 \to\partyname
      \centertext{\partyname}%
     \fi\fi}}

\def\slistparties#1{% #1=\plaintiffs
  \converttokens{#1}%
  \partyno=1\def\\##1{\relax##1\cr}%
  \tabskip=0pt
  \select\partyno \of#1 \to\partyname
  \vtop{\hsize=\the\maxp@rtywidth
   \hyphenpenalty=10000\tolerance=2750
   \ifnum\currentpartyfullcount>2
     \centertext{\partyname{ \it \&~Ors.\/}}%
   \else\ifnum\currentpartyfullcount=2
     \centertext{\partyname{ \it \&~Anor.\/}}%
   \else\ifnum\currentpartyfullcount=1
     \centertext{\partyname}%
   \fi\fi\fi}}

% This is a default definition.
\long\def\bottomofpleading#1{%#1=text
  \def\addressfile{solicitors}
  \getaddress
  {\def\cr{ of \def\cr{, }}%
  \medskip
  #1}%
  \global\parindent=\the\storeparindent}

\def\inthematter{%
  \ifx\matters\empty
  \else\testone=0\def\\##1{\relax\global\advance\testone by1%
   \def\and{\ifnum\testone<2{}%
  \else{And\ }\fi}% Now do the work
  {\scaps \and}##1\strut\cr
  \ifnum\testone<\the\mattercount \noalign{\smallskip}\fi}%
  \halign{%
    \vtop{\twelvebase=15pt\twelvepoint
    \hangafter1 \hangindent\clindent ##\strut}\hfil\cr
    \matters\crcr}%
  \fi}

% Now some other pleading stuff, esp. amendments

\def\served#1{\getservicedate{#1}{\dateofservice}}
\def\reserved#1{\getservicedate{#1}{\dateofreservice}}
\def\rereserved#1{\getservicedate{#1}{\dateofrereservice}}
\def\rerereserved#1{\getservicedate{#1}{\dateofrerereservice}}

\def\writissued#1{%
  \getservicedate{#1}{\datewritissued}%
  \gdef\Writissued{Writ issued the \nodate}%
  }

\def\getservicedate#1#2{{%
   \def\sserved##1/##2/##3roger{%
     \def\day{##1}%
     \def\month{##2}%
     \def\year{\ifnum##3<100 19##3\else##3\fi}%
     \expandafter\xdef\csname\expandafter\gobble\string#2\endcsname{\longtoday}%
     }%
   \sserved#1roger
   }}

\newif\ifamendtext\amendtexttrue
\def\setamendcount#1{\global\amendcount=#1}

\newcount\amendcount
\newcount\aamct \aamct=0

\gdef\amended{%
  \enddoc
  \setamendcount{1}%
  \ifamendtext\amendstuff\fi}

\gdef\reamended{%
  \enddoc
  \setamendcount{2}
  \ifamendtext\amendstuff\fi}

\gdef\rereamended{%
  \setamendcount{3}%
  \ifamendtext\amendstuff\fi}

\def\amendstuff{%This overlong macro deals with amendment formal parts
  \gdef\amendnote{%
     \ifnum\amendcount<2% First amendment
       \tcl{\scaps Note:} Text inserted by this amendment to this
       pleading is shown underlined, {\ul thus}; text deleted by
       this amendment is shown crossed-out, {\xo thus}.
     \else % Second and subsequent amendments
       \tcl{\scaps Note 1:} Text inserted by the first amendment
       is shown underlined, {\ul thus}; text deleted by the
       first amendment is shown crossed-out, {\xo thus};
       \par
       \tcl{\scaps Note 2:} Text inserted by the second amendment
       is shown underlined twice, {\uul thus}; text deleted by the
       second amendment is shown crossed-out twice, {\xxo thus}.
     \fi
     \par
     \ifnum\amendcount=3% re-re-amendment
       \tcl{\scaps Note 3:} Text inserted by the third amendment
       is shown underlined thrice, {\uuul thus}; text deleted by
       the third amendment is shown crossed-out thrice, {\xxxo thus}.
     \fi
     }%
    \ifnum\ct=1\ccendofpleading\else\hcendofpleading\fi
  \global\amendtextfalse
  }

\def\hcendofpleading{% End of pleading for High Court
    \gdef\endofpleading{%
      \signature
      {\ul \signature}
      \ifnum\amendcount>1{\uul \signature}\fi
      \ifnum\amendcount>2{\uuul \signature}\fi
      \bottomofpleading{%
        Served the \ifx\dateofservice\empty{\nodate}%
         \else{\dateofservice}\fi
      \unskip
      \ifnum\amendcount=1{\ul\ and }\fi% Amend
      \ifnum\amendcount>1{\ignorespaces\ul\unskip, }\fi
      {\ul re-served the \ifx\dateofreservice\empty{\nodate}%
         \else{\dateofreservice}\fi\unskip}
      \ifnum\amendcount=2{\ul\ and }\fi% Reamend
      \ifnum\amendcount>2{\ignorespaces\ul\unskip, }\fi
      \ifnum\amendcount>1% ie \amendcount is 2 or more
         {\uul re-re-served the
           \ifx\dateofrereservice\empty{\nodate}%
           \else{\dateofrereservice}\fi\unskip}
           \fi
      \ifnum\amendcount=3{\ul\ and }\fi% Re-re-amend
        \ifnum\amendcount>2% ie \amendcount is 3 or more
           {\uuul re-re-re-served the
            \ifx\dateofrerereservice\empty{\nodate}%
             \else{\dateofrerereservice}\fi}
         \fi
       by \ignorespaces\sols \solicitors\ for the\forwhom\par
         }%
     }%
    }

\def\ccendofpleading{% End of pleading for county court
    \gdef\endofpleading{%
      \medskip
      Dated the \ifx\dateofservice\empty{\nodate}%
       \else{\dateofservice}\fi
      \signature
      {\ul Dated the \ifx\dateofreservice\empty{\nodate}%
       \else{\dateofreservice}\fi\unskip}
      {\ul \signature}
      \ifnum\amendcount>1
        {\uul Dated the \ifx\dateofrereservice\empty{\nodate}%
        \else{\dateofrereservice}\fi\unskip}
        {\uul \signature}
      \fi
      \ifnum\amendcount>2% ie \amendcount is 3 or more
        {\uuul Dated the \ifx\dateofrerereservice\empty{\nodate}%
        \else{\dateofrerereservice}\fi}
        {\uuul\signature}
      \fi
      \bottomofpleading{%
        \rightline{\vtop{\hsize=.6\hsize
          The \forwhom's \solicitors\ are \sols
          where they will accept service of proceedings
          on behalf of the \forwhom.}}
        \bigskip
        \leftline{\vtop{\hsize=.6\hsize
          To the District Judge of the \courtname\
          COUNTY COURT and to the \notforwhom.}}
        }%
     }%
    }

% Clause numbering for use inside amendments

\def\acl{\clauselevel=1
 \advance\recno by1 \xcl{\hss\the\clno\char\the\recno.\enspace}}

\def\aacl{\clauselevel=1
 \advance\recno by1 \xcl{\hss\the\clno\char\the\recno\char
  \the\recno.\enspace}}

\def\aaacl{\clauselevel=1
 \advance\recno by1 \xcl{\hss\the\clno\char\the\recno\char\the\recno%
    \char\the\recno.\enspace}}

\def\ascl{\clauselevel=2
 \advance\recno by1 \xcl{\hss(\the\sclno\char\the\recno)\enspace}}

\def\aascl{\clauselevel=2
 \advance\recno by1 \xcl{\hss(\the\sclno\char\the\recno%
    \char\the\recno)\enspace}}

\def\aaascl{\clauselevel=2
 \advance\recno by1 \xcl{\hss(\the\sclno\char\the\recno\char\the\recno%
    \char\the\recno)\enspace}}

\let\dateofservice\empty
\let\dateofreservice\empty
\let\dateofrereservice\empty
\let\dateofrerereservice\empty
\let\datewritissued\empty

\def\resetpleadingdefaults{%
   \ifnum\ct=1
     \def\endofpleading{%
      \medskip
      Dated this \nodate\par\signature
      \bottomofpleading{%
        \rightline{\vtop{\hsize=.6\hsize
          The \forwhom's \solicitors\ are \sols
          where they will accept service of proceedings
          on behalf of the \forwhom.}}
        \bigskip
        \leftline{\vtop{\hsize=.6\hsize
          To the District Judge of the \courtname\
          COUNTY COURT and to the \notforwhom.}}
        }}%
   \else
    \def\endofpleading{%
      \signature
      \bottomofpleading{%
        Served the \nodate by \ignorespaces\sols \solicitors\
        for the \forwhom}}
   \fi
   \gdef\amendnote{}% Reset it.
   \let\dateofservice\empty
   \let\dateofreservice\empty
   \let\dateofrereservice\empty
   \let\datewritissued\empty
   \setamendcount{0}%
   \global\maxp@rtywidth=\the\maxpartywidth}

% These may change. They set up names.

\gdef\Plaintiffs{\ifappeal Appellants\else\ifapplication Applicants%
  \else Plaintiffs\fi\fi}
\gdef\Plaintiff{\ifappeal Appellant\else\ifapplication Applicant%
  \else Plaintiff\fi\fi}
\gdef\Defendants{\ifappeal Respondents\else\ifapplication Respondents%
  \else Defendants\fi\fi}
\gdef\Defendant{\ifappeal Respondent\else\ifapplication Respondent%
  \else Defendant\fi\fi}
\gdef\Thirdparty{Third Party}
\gdef\Thirdparties{Third Parties}

% examples of use

% This assumes that \clientpl has already been set true or false
\def\arrangement{%
 \def\endofpleading{}
  \spleading{ARRANGEMENT}}

\def\soc{%
  \ifx\Writissued\empty\def\Writissued{Writ issued the \nodate}\fi
  \clientpltrue
  \pleading{STATEMENT OF CLAIM}}

\def\defence{%
 \let\Writissued\empty
 \clientplfalse
 \pleading{DEFENCE}}

\def\dacc{%
 \gdef\counterclaim{%
   \vskip\the\clskip
   \centerline{COUNTERCLAIM}
   \nobreak}
 \let\Writissued\empty
 \clientplfalse
 \pleading{DEFENCE AND COUNTERCLAIM}
 \smallskip
 \centerline{DEFENCE}
 \nobreak}

\def\counterclaim{% Counterclaim on its own
 \let\Writissued\empty
 \clientplfalse
 \pleading{COUNTERCLAIM}}

\def\reply{% Reply on its own
 \let\Writissued\empty
 \clientpltrue
 \pleading{REPLY}}

\def\rdcc{% Reply and Defence to Counterclaim
 \let\Writissued\empty
 \clientpltrue
 \pleading{REPLY AND DEFENCE TO COUNTERCLAIM}}

% County Court. Note: These macros do not yet reproduce
% all (or indeed any) of the batty prescribed forms, although
% it would not be difficult to achieve this.
% Most macros are the same as the HC macros

\def\poc{%
 \let\Writissued\empty
 \clientpltrue
 \pleading{PARTICULARS OF CLAIM}}

% The Affidavit macros. These are fairly complicated
% First, some general bits and pieces

\newtoks\shortinitials \shortinitials={}
\newtoks\tempinitials \tempinitials={}
\newtoks\surname \surname={}
\newif\ifsomeletters \somelettersfalse
\newif\ifspace \spacefalse
\newif \ifpunct
\newtoks\firstletter \firstletter={}
\newif\ifmac \macfalse
\newtoks\longinitials \longinitials={}

\newcount\lettercount
\newcount\surnamecount
\newcount\front

\def\affyno#1{%
 \def\affno{\addsuffix{#1}}}
\affyno{1}% set 1st as default

% Now some stuff to extract initials from fullnames

\def\itsaspace{%
\dbhelp{It is a space}%
  \ifsomeletters%
    \edef\tin{\the\shortinitials\the\firstletter.}%
    \shortinitials=\expandafter{\tin}%
    \somelettersfalse\fi%
  \lettercount=0\surnamecount=0\relax\unskip}

\def\itsaletter#1{%
\dbhelp{It is a letter-"#1"}%
  \advance\lettercount by1% #1 is a letter
  \advance\surnamecount by1\relax%
  \ifnum\lettercount=1 \firstletter={#1}
   \someletterstrue\fi
  \ifnum\surnamecount=1\surname=\expandafter{#1}%
    \tempinitials=\expandafter{#1}%
  \else\ifnum\surnamecount>1%
    \tempinitials=\expandafter{\the\tempinitials#1}
    \maccheck{#1}%
  \fi\fi}

\def\maccheck#1{%
\dbhelp{Doing MacCheck}%
  \ta={Mc}
  \edef\tone{\the\ta}%
  \edef\ttwo{\the\tempinitials}%
  \ifx\tone\ttwo
    \mactrue
    \surname=\expandafter{\the\tempinitials}%
  \else\ifpunct\punctfalse\surname=\expandafter{\the\surname#1}%
   \firstletter=\expandafter{\the\firstletter#1}%
  \else\ifmac\macfalse\surname=\expandafter{\the\surname#1}%
    \firstletter=\expandafter{\the\tempinitials}%
  \else\surname=\expandafter{\the\surname\lowercase{#1}}%
  \fi\fi\fi}

\def\itspunctuation#1{%
\dbhelp{It is punctuation-"#1"}%
%\def\temppunct#1{\if#1\noexpand~-\else#1\fi}%
  \somelettersfalse
  \edef\tin{\the\tempinitials#1}
  \tempinitials=\expandafter{\tin}%
  \surname=\expandafter{\the\surname#1}%
  \someletterstrue
  \if#1\space\firstletter=\expandafter{\the\firstletter.}\else
   \firstletter=\expandafter{\the\firstletter#1}\fi
  \advance\surnamecount by1\puncttrue\relax}

\gdef\length#1{\lettercount=0\surnamecount=0
\unskip\ignorespaces\getlength#1!}

\gdef\getlength#1{%
\dbhelp{Character="#1"}
  \unskip\ignorespaces
  \if#1!
    \let\next=\relax
    \edef\tin{\the\shortinitials\the\firstletter.}%
    \longinitials=\expandafter{\tin}%
  \else% ie if not end of name
    \edef\fullname{\fullname#1}%
    \dbhelp{Fullname="\fullname"}%
    \ifcat\noexpand#1\noexpand~  \itsaspace\fi%
    \if#1\noexpand_\itspunctuation{ }\else
     \ifcat#1-\itspunctuation{#1}\fi\fi%
    \ifcat#1a \itsaletter{#1}\fi%
    \let\next=\getlength%
 \fi% it is an exclamation mark
 \unskip\next}

\gdef\deponent{%
 \enddoc \endedtrue
 \def\clearexno{\exno=0 \front=0}%Use \setexno{n} to reset to other number.
 \shortinitials={}%reset the lot
 \surname={}
 \longinitials={}
  \def\of##1{\def\hisaddr{##1}%
  \ifx\hisaddr\empty\def\hisaddr{[{\it address\/}]}\fi}%
  \def\occupation##1{\def\hisoccupation{##1}%
  \ifx\hisoccupation\empty
    \def\hisoccupation{[{\it occupation\/}]}\fi
    \def\comma{, }}%
  \of{}\occupation{}% set up the defaults
  \def\nooccupation{\def\hisoccupation{}%
    \def\comma{}}%
  \catcode`\ =\active % Make spaces active ftb.
  \global\catcode`\_=\other % Make underlines into letters
  \let\tempt=~ \catcode`\~=\other \let\tilde=~ % check tilde
  \let\tempb=\blank \let\blank=\space
  \whatsnext}

\def\whatsnext#1{%
  \ifx#1\noname
   \shortinitials={\blank}%
   \surname={\blank\blank}%
   \longinitials={\blank\blank}%
   \def\fullname{\noname}%
  \else
   \edef\fullname{}%
   \length{#1}%
  \fi
  \def\depsname{\hbox{\ignorespaces%
    \the\shortinitials\space\the\surname}}%
  \xdef\inits{\the\longinitials}%
  \catcode`\ =10% reset the catcodes
  \catcode`\~=\active
  \catcode`\_=8
  \let~=\tempt
  \let\blank=\tempb
  \gdef\deplname{I, \fullname, of \hisaddr\comma
   \hisoccupation, make oath and say as follows---}}

\def\affidavit{\par% Note: This does NOT set \clientpl
  \clearexno
  \draft{AFFIDAVIT}% This has been moved
  \gettitle
  \pleadingtrue
  \endorsementtrue
  \ifdraft
   \def\signoff{\endofpleading\settled}%
  \else\let\signoff\endofpleading\fi
  \def\endofpleading{%
    \bottomofpleading{\sworn}}%
  \ifdraft\else
    \def\doextras{\getfrontsheets\let\doextras\empty}
  \fi
  \endorsement
  \heading
  \sparties
  \deplname % produces I, etc, make oath, etc.
  \medskip}

\def\endorsement{\tlap{\rightline{%
 \baselineskip=13pt\tenbf\getendorsement}\medskip}}

\def\bsendorsement{\tlap{\xcenterline{%
 \baselineskip=10pt\ninebf\getendorsement}}}

\def\getendorsement{%
 \setbox0\hbox{Deponent}\dimen1=.4\wd0
 \setbox0\hbox{Party\hskip\dimen1\forwhom}\dimen2=\wd0
 \setbox0\hbox{Deponent\hskip\dimen1\depsname}%
  \ifdim\wd0>\dimen2 \dimen2=\wd0\fi
 \setbox0\hbox{No.\ of Affidavit\hskip\dimen1\affno}%
  \ifdim\wd0 >\dimen2 \dimen2=\wd0\fi
 \setbox0\hbox{Date Sworn\hskip\dimen1\whensworn}%
  \ifdim\wd0>\dimen2 \dimen2=\wd0\fi
 \vbox{%
  \hbox to \dimen2{Party\dotfill\ignorespaces\forwhom}%
  \hbox to \dimen2{Deponent\dotfill\ignorespaces\depsname}
  \hbox to \dimen2{No.\ of Affidavit\dotfill%
    \hbox{\ignorespaces\affno}}%
  \hbox to \dimen2{Date Sworn\dotfill\whensworn}%
 }}

\def\frontsheet#1{% Produces frontsheets for exhibits
  \vfil\eject
  \endorsement
  \heading
  \sparties
  \pageno=0
  \nopagenumbers
  \inform{Frontsheet for Exhibit "\inits \number#1"}%
  \vtop{\raggedright\uchyph=0
   This is the Exhibit marked ``\inits\,\number#1'' referred to
   in the Affidavit of \fullname\ sworn before me this \nodate
   \vskip1.5in
   \hskip.6\hsize\nobreak Solicitor }%
  \vfil\eject}

\def\getfrontsheets{%
 \ifnum\exno=0
 \else
  \loop
  \advance\front by1
  \frontsheet{\number\front}%
  \ifnum\exno>\number\front\repeat
 \fi}

% End of affidavit macros


% Originating Summons - long form

%\gdef\os{%
% \topofpleading{ORIGINATING SUMMONS}{0}
% \def\endos{\bottomofpleading{\endostext}}
% \ostext}
%
% Originating Summons - short form
%
% Minutes of Order
%
%\def\minutes{%
%  \topofpleading{MINUTES OF ORDER}{0}
%  \medskip
%  \centerline{MINUTES OF ORDER}
%  \medskip
%   {\scaps This Application}, \etc\par
%   {\scaps And Upon Hearing}, \etc\par
%   {\scaps And Upon Reading}, \etc\par}
%
\def\order{%
  \topofpleading{ORDER}{0}
  \medskip
  \centerline{ORDER}
  \medskip}

% Other macros take the same form. (More will be added.)

\def\statementofclaim{%
  \topofpleading{\amend STATEMENT OF CLAIM}{0}
  \medskip
  \centerline{\amend STATEMENT OF CLAIM}
 \par\nobreak\medskip}

\def\endwrittext{%
    {\scaps This Writ} was issued by \ignorespaces\sols \solicitors\ for
    the said \plaintfs\ whose \addressis\ as stated above}

\def\endgenwrit{% This can be removed
%  \signature
   \bottomofpleading{%
    {\scaps This Writ} was issued by \ignorespaces\sols \solicitors\ for
    the said \plaintfs\ whose \addressis\ as stated above}}

\def\sjsummons{% O.14. It may be necessary to set \clientpl
  \origprocess{SUMMONS}{\summarytext}{}{}{\endsummarytext}%
  }

\def\spsummons{% O.86. It may be necessary to set \clientpl
 \topofpleading{SUMMONS}{0}
 \specifictext}

\def\summons{% This is an ordinary summons
  \topofpleading{SUMMONS}{0}
  \summonstext}

\def\endsummons{%
  {\scaps Dated} \nodate
  \bottomofpleading{This Summons was taken out by\sols \solicitors\ for
  the above-named \forwhom\par
  \medskip
  To the \notforwhom\ and to \theirsols, of \theirsolsaddr, Solicitors
  for the above-named \notforwhom.}}

\def\defenceandcounterclaim{%
  \reset
  \def\doctype{DEFENCE AND COUNTERCLAIM}
  \pleadingtrue
  \clientplfalse
  \draftparameters
  \gettitle
  \def\backsheet{\enddoc\bsdft}
  \heading
  \parties
  \centerline{\amend DEFENCE}
  \medskip}

\def\reply{%
  \reset
  \def\doctype{\amend REPLY}
  \clientpltrue
  \heading
  \ifnoparties\else\parties\fi
  \centerline{\amend REPLY}
  \medskip}

\def\replyanddefencetocounterclaim{%
  \reset
  \def\doctype{\vtop{\hsize=2.5in
    \centertext{\amend REPLY AND DEFENCE
    TO COUNTERCLAIM}}}
  \clientpltrue
  \heading
  \ifnoparties\else\parties\fi
  \centerline{\amend REPLY AND DEFENCE TO COUNTERCLAIM}
  \medskip
  \centerline{\amend REPLY}
  \medskip}

\def\counterclaim{% This is for use in a Defence & Counterclaim
  \bigbreak\centerline{\amend COUNTERCLAIM}\nobreak\medskip}

\def\particulars{\clno=0
  \par\smallskip\centerline{PARTICULARS}\par}

\def\served{%
  \bottomofpleading{%
  Served the \nodate by \ignorespaces\sols \solicitors\
  for the \dfdants}}

% backsheet macros

% Misc

\edef\workdone{}
\newtoks\tempwd \tempwd={}
\newdimen\bstopincrease \bstopincrease=.5in
\newdimen\bsbotincrease \bsbotincrease=.5in
\def\chittitle{%
  \slistpls\cr
  \ v.\cr
  \slistdfs\cr}
\newdimen\storeparindent

\def\osinhtext{LET\ignorespaces\getdefs\ attend
  before Master \nomonth at Chancery Chambers,
  Room No.\noday, Royal Courts of Justice, Strand,
  London, WC2A2LL on a day to be fixed on the hearing
  by the \plaintfs \getpls for the following relief,
  that is to say---\par
\medskip}

\def\endosinhtext{And let the \dfdants\ within [14 days]
  after service of this summons on \them\ counting the
  day of service, return the accompanying Acknowledgment
  of Service to the appropriate Court Office.\par
  \nobreak\smallskip
  Dated the \nodate

  {\bf Note---}This summons may not be served later than 12
  calendar months beginning with the above date unless
  renewed by order of the Court.\par
  \medskip
  This summons was taken out by \ignorespaces\sols \solicitors\
  for the said \plaintfs\ whose \addressis\ as stated above
  \medskip

  {\bf Note---}If a defendant does not attend personally
  or by his counsel or solicitor at the time and place
  above-mentioned such order will be made as the Court may
  think fit just and expedient.\par
  \medskip
  A defendant who is a personal representative must,
  within 21 days after service of this summons on him,
  counting the day of service, lodge with the court an
  affidavit in answer, stating the particulars required by
  Order 99, rule 5 of the Rules of the Supreme Court.\par
  \medskip
  \centerline{\bf IMPORTANT}\par\nobreak
  Directions for Acknowledgment of Service are given with the
  accompanying form.\par
  }

\def\summarytext{% Spacing reduced to get it on one page
  \twelvebase=17pt\twelvepoint
  \smallskip
  {\scaps Let all parties} concerned attend \chambers\
  Royal Courts of Justice, Strand, London WC2A 2LL,
  on  \phantom{[Mon]}day the \nodate\ at \noname on
  the hearing of an application on the part of the \plaintfs\
  for the  relief claimed in the Statement of Claim
  \smallskip
  {\scaps Take Notice} that a party intending to oppose
  this application or to apply for a stay of execution
  should send to the opposite party or his Solicitor to
  reach him not less than three days before the date
  above mentioned a copy of any affidavit intended to be used.}

\def\endsummarytext{%
  {\scaps Dated} \nodate
  \smallskip
  This summons was taken out by \ignorespaces\sols \solicitors\
  for the \plaintfs.
  \smallskip
  TO \noname, of \noaddr, \solicitors\ for the \dfdants.\par}

\def\specifictext{%
  \smallskip
  {\scaps Let all parties} concerned attend before Master
  \if\mast\empty\blank\blank\else\mast\ \fi
  at the Chambers of the Judge, Room No.~\phantom{100}, Royal
  Courts of Justice, Strand, London WC2A 2LL, on
  \phantom{Wednesday} the \nodate\ at \phantom{12}~o'clock in
  the \phantom{after}noon on the hearing of an application on
  the part of the \plaintfs\ for the following relief---

  \cl An order pursuant to Order 86 of the Rules of the Supreme Court
  for specific performance of the agreement in the Writ in this action
  mentioned in the terms of the Minutes set out in the Schedule hereto

  \cl All necessary and further inquiries and accounts

  \cl In the alternative Directions as to the pleading in and further
  conduct of this action
  \schedule\par}

\def\summonstext{%
  {\scaps Let all parties} concerned attend before Master \blank
  at the Chambers of the Judge, Room No.~\phantom{100}, Royal
  Courts of Justice, Strand, London WC2A 2LL, on
  \phantom{Wednesday} the \nodate\ at \phantom{12}~o'clock in
  the \phantom{after}noon on the hearing of an application on
  the part of the \plaintfs\ for the following
  relief---\par\nobreak\medskip}

\def\ostext{%
  TO\ignorespaces\getdefs
  \smallskip
  {\scaps Let The \expandafter{\dfdants}}\ within [14] days after
  service of this summons on \them\ \respectively, counting the day
  of service, return the accompanying Acknowledgment of Service
  to the appropriate Court Office
  \smallskip
  {\scaps By This Summons}, which is issued on the application of the
  \plaintfs\unskip\space\getpls\unskip\space the \plaintfs\ \seek\ the
  following relief, that is to say---\hfil\par}

\def\endostext{%
  If the \dfdants\ \do\ not acknowledge service, such judgment may
  be given or order made against or in relation to \them\ as the
  Court may think just and expedient
  \medskip
  Dated the \nodate
  \medskip
  {\bf Note}---This summons may not be served later than 4~calendar
  months beginning with the above date unless renewed by order of
  the Court.
  \medskip
  This summons was taken out by \ignorespaces\sols \solicitors\
  for the said \plaintfs\ whose \addressis\ as stated above
  \medskip
  \centerline{\bf IMPORTANT}\par\nobreak
  Directions for Acknowledgment of Service are given with the
  accompanying form.\par
  }

\def\subjectmatter#1#2{%#1=matter,#2=text
  \global\advance\mattercount by1
  \rightappenditem{\scaps#1 \rm of} #2\to\matters}

\def\matter#1{\subjectmatter{In the Matter}{#1}}
\def\estate#1{\subjectmatter{In the Estate}{#1}}

\def\re#1{\nopartiestrue\def\res{\vbox{\hsize=2.8in
  \centertext{#1}}}}

% Set up the parties

\def\forwhom{\pltext\dftext%\unskip
  \ifclientpl\plaintfs\else\dfdants\fi}

\def\notforwhom{\pltext\dftext%\unskip
  \ifclientpl\dfdants\else\plaintfs\fi}

\newcount\ct % courts
\def\court{\ifcase\ct IN THE HIGH COURT OF JUSTICE
  \or IN THE \courtname\ COUNTY COURT
  \or IN THE COURT OF APPEAL
  \or IN THE HOUSE OF LORDS
  \else IN THE HIGH COURT OF JUSTICE
  \fi}

\def\highcourt{\ct=0}

\def\countycourt{%\ct=1 \div=0 \dref=0
  \morecountycourtdefaults\countycourtstuff\getcourtname}

\def\getcourtname{% adapted from \setupccrefs below
 \begingroup\obeylines
 \aftergroup\getnameofcase\casereferences}

\def\getnameofcase{%
 \def\dateref{}%
 \def\caseref{}%
 \def\courtname{\argument1}%
 }


\def\courtofappeal{\ct=2\def\appealtext{\courtofappealtrue}}
\def\houseoflords{\ct=3}

\newcount\div
\newcount\dref

\def\chancery{\div=1 \dref=1
  \def\divref{CH\ }
  \def\issuer{Chancery Chambers}
  \def\chambers{Master
  \if\mast\empty \blank
    \else\mast\ \fi in Chancery
  Chambers, Room No.\noday, }}

\def\queensbench{\div=2 \dref=2
  \def\divref{QB\ }
  \def\issuer{Central Office}
    \def\chambers{the Master in Chambers in Room No.\noday,
  Central Office, }}

\def\familydivision{\div=3 \dref=3
  \def\divref{No.\ }
  \def\issuer{The Principal [{\it or\/}
  \blank District Probate] Registry}
    \def\chambers{}}

\newcount\subdiv
\def\subdivision{\ifcase\subdiv
  \or Companies Court
  \or Commercial Court
  \or Official Referee's Court
  \or The Principal [{\it or\/} \blank District Probate]
    Registry
  \fi}
\def\companiescourt{\subdiv=1}
\def\commercialcourt{\subdiv=2}
\def\OR{\subdiv=3}
\def\probateregistry{\subdiv=4}

\def\mrjustice{}
\def\judge#1{\def\mrjustice{#1}}
\def\judgename{\if\mrjustice\empty\else Mr Justice \mrjustice\fi}

\def\mast{}
\def\master#1{\def\mast{#1}}
\def\mastername{\if\mast\empty\else Master \mast\fi}

\def\divref{\ifcase\dref
  \or CH\
  \or QB\
  \or Fam.\
  \fi}

\def\dateref{\ifcountycourt\else\number\year\fi}
\def\caseref{\ifcountycourt\else --\phantom{A}--\fi}
\def\casenumber{No.~\phantom{1234}}
\def\issued{}
\def\writissued{}
\def\issued#1 #2 #3 {\def\writissued{%
  Writ issued the #1 day of #2 #3}}

\def\no#1 {\def\casenumber{No.\ #1}
  \def\dateref{}
  \def\caseref{}}

\def\reference{\divref\dateref\caseref\casenumber}

% Can't remember what these did...
%\def\sref#1{\def\sref{#1}}
%\def\cref#1{\creftrue\def\cref{#1}}

\def\attention#1{\def\attentionof{#1}}
\attention{}
\long\def\comment#1{\def\faxtext{\if#1\empty
 \else\medskip#1\fi}}
\comment{}

\def\backsheet{\enddoc\bsdft}% default
\let\beginos\os

% Here are all the default parameters set by LeXTeX---

\greektrue % Used in \sssscl
\cardtrue % Used in \ssssscl
\clindtrue % hanging indentation in clauses
\nocommaindatefalse % Comma in the date
\qfalse %  No quotes in quotations

\footindent=10pt % Indentation of footnotes
\clindent=23pt % Indentation of clauses
\sclindent=46pt % Indentation of sub-clauses
\ssclindent=69pt % Indentation of sub-sub-clauses
\sssclindent=92pt % Indentation of sub-sub-sub-clauses
\ssssclindent=115pt % Etc
\sssssclindent=138pt % Etc
\cnindent=65pt % indentation of "computer-numbered" clauses

\hclindent=0pt % Indentation of clauses if clindfalse
\hsclindent=\clindent % Ditto of sub-clauses
\hssclindent=\sclindent % Etc
\hsssclindent=\ssclindent
\hssssclindent=\sssclindent
\hsssssclindent=\ssssclindent

\parindent=20pt % indentation of paragraphs
\quoteindent=20pt % indentation of quotations
\quoteparindent=20pt % \parindent in a quotation
\rbracketsize=2.85in % The width of the \vbox used for \ssd etc
\lbracketsize=2.225in % The width of a left bracket \vbox
\brackdepth=.5in % The space left under "in the presence of---"
\hfuzz=1.5pt
\hsize=5.35in
\vsize=8.5in
\hoffset0.5in
\voffset.5in
\parskip=3pt plus .75pt minus .75pt
\def\footnoterule{}

\quoteparskip=1.5pt plus 1pt % The amount of \parskip in quotes
\blankskip=10pt plus20pt minus 0pt % Used in \noaddr etc
\signindent=3.5in % Indentation of signature

\settledgap=1in plus.3fill minus.5in % v. space Settled, \inn
\clskip=\medskipamount % amount of skip before a clause
\sclskip=\smallskipamount % amount of skip before a \scl
\ssclskip=0pt plus1pt minus0pt % amount of skip before a \sscl
\sssclskip=0pt plus.5pt minus0pt % ditto before a \ssscl

\twelvebase=18pt % \normalbaselines in \twelvepoint
\tenbase=15pt    % \normalbaselines in \tenpoint
\ninebase=11pt   % \normalbaselines in \ninepoint

\twelvesmallskipamount=4.5pt plus1pt minus1pt
\twelvemedskipamount=9pt plus2pt minus2pt
\twelvebigskipamount=18pt plus4pt minus4pt
% The next three are set by PLAIN
%\tensmallskipamount=3pt plus1pt minus1pt
%\tenmedskipamount=6pt plus2pt minus 1pt
%\tenbigskipamount=12pt plus4pt minus4pt
\ninesmallskipamount=2pt plus.5pt minus.5pt
\ninemedskipamount=4pt plus1pt minus 1pt
\ninebigskipamount=8pt plus2pt minus 2pt

% The next three are used by xref/contents macros
\notespace=0.2in % space marginal notes--text
\maxnote=1.0in % width of note
\clnamelength=0pt % Default width in table of contents
\pagewidth=\hsize % used by the index macros
\pageheight=\vsize

\def\against{and} % the "and" between parties in pleadings

\tolerance=750

\def\engrossment{%
 \draftfalse
 \def\csettled##1{}
 \def\cresettled##1{}}

\def\setexno#1{\def\clearexno{\exno=#1 \front=#1}\clearexno}

\countdef\totaldocuments=1 \totaldocuments=0
\countdef\totalpages=2 \totalpages=1

\def\advancepageno{\ifnum\pageno<\z@ \global\advance\pageno\m@ne
  \else\global\advance\pageno\@ne\fi
  \global\advance\totalpages\@ne}
  \output{\plainoutput}

\def\plainoutput{\ifnum\pageno=1 \global\advance\totaldocuments\@ne\fi
  \message{Shipping out page}
  \shipout\vbox{\makeheadline\pagebody\makefootline}%
  \inform{(\ifnum\pageno=0 Unnumbered page\else Page \the\pageno\fi
    \space of Document \the\totaldocuments,
    Total of \the\totalpages\space\ifnum\totalpages=1 page\else pages\fi\space so far)}%
  \inform{}%
  \advancepageno
  \ifnum\outputpenalty>-\@MM \else\dosupereject\fi}

\let\backmatter=\empty
\let\signoff=\empty

\def\bstitle#1{%
 \getbstitlewidth
 \def\title{\setbox0\hbox{#1}
  \ifdim\wd0<\bstitlewidth\copy0
   \else\vtop{\hsize=\bstitlewidth\centertext{#1}}\fi
 }} % used for backsheets

\newdimen\maxpartywidth

% These slightly complicated macros were derived from some suggestions made
% by Amy Hendrickson in TUGboat Vol 11, No 3, p359.
% \default defines eg \argument1 to be parameter 2.
% Unfortunately it would not be possible to call \argument1 directly.
% It would be necessary to use \csname argument1\endcsname[parameter 2]
% The macro \argument gets round this difficulty; \argument{1} (or \argument1
% if there is only one token to be used) converts to \argument1 (all one word).
% So \argument12 converts to \argument1{2}. Clear?

\def\default#1#2{\expandafter\def\csname argument#1\endcsname{#2}}
\def\argument#1{\csname argument#1\endcsname}

\def\highcourtdefaults{%
 \resetpleadingdefaults
 \ct=0% I think this should be elsewhere
 \default1{\number\year}
 \default2{\phantom{W}}
 \default3{\phantom{4321}}
 \def\divref{CH~}
 }

% get rid of old defs
\def\dateref{}
\def\caseref{}
\def\casenumber{}

\def\probatedefaults{%
 \resetpleadingdefaults
 \default1{}
 \default2{}
 \default3{}
 \def\divref{File No.~}
 \def\sparties{}}

\def\countycourtdefaults{%
 \resetpleadingdefaults
 \default1{\phantom{1234}}
 \def\divref{}
 }

\def\morecountycourtdefaults{%
 \resetpleadingdefaults
 \default1{\phantom{BORCHESTER}}
 \def\divref{}
 }

\def\division{\ifcase\div% \blank Division
  \or Chancery Division%            1
  \or Queen's Bench Division%       2
  \or Family Division%              3
  \or\or\or\or\or\or\or%           10
  \or Chancery Division (Probate)% 11
  \else \blank Division
  \fi}

\def\chanceryp{\div=11 \dref=1
  \def\divref{CH\ }
  \def\issuer{Chancery Chambers}
  \def\chambers{Master
  \if\mast\empty \blank
    \else\mast\ \fi in Chancery
  Chambers, Room No.\noday, }}

\def\countycourtstuff{%
 \ct=1 \div=0 \dref=0
 \countycourttrue
 }%

\gdef\ch{%
  \pleadingtrue\highcourtdefaults
  \chancery\setuphcrefs}
\gdef\qb{%
  \pleadingtrue\highcourtdefaults
  \queensbench\setuphcrefs}
\gdef\family{%
  \pleadingtrue\highcourtdefaults
  \familydivision\setupfamrefs}
\gdef\case{%
  \pleadingtrue\countycourtdefaults
  \countycourtstuff\setupccrefs}
\gdef\chp{%
  \pleadingtrue\highcourtdefaults
  \chanceryp\setuphcrefs}
\def\probate{%
  \pleadingtrue\probatedefaults
  \familydivision\begingroup}

\def\setuphcrefs{% The \endgroup is given by \lookatarg
 \begingroup\obeylines
 \aftergroup\setuphighcourt\casereferences}

\def\setupfamrefs{% The \endgroup is given by \lookatarg
 \begingroup\obeylines
 \aftergroup\setupfamcourt\casereferences}

\def\setupccrefs{%
% \countycourtdefaults
 \begingroup\obeylines
 \aftergroup\setupcountycourt\casereferences}

\def\setuphighcourt{%
 \def\dateref{\argument1}%
 \def\caseref{---\argument2---}%
 \def\casenumber{No.~\argument3}%
 }

\def\setupfamcourt{%
 \def\dateref{\argument1}%
 \def\caseref{ of~\argument2}%
 \def\casenumber{}%
 }

\def\setupcountycourt{%
 \def\dateref{}%
 \def\caseref{}%
 \def\casenumber{Case No.~\argument1}%
 }

% Note: Do not concatenate the next two lines
% The end of line is the delimiter of #1 of \casereferences.
% roger is the delimiter of #1 of \lookatarg. See Amy Hendrickson's
% Article in TUGboat for an explanation.

{\obeylines\gdef\casereferences#1
{\expandafter\lookatarg#1 roger }}

\newcount\argcount \argcount=0
\def\endofargs{roger}

\def\lookatarg#1 {\def\thisarg{#1}
  \ifx\thisarg\empty \let\go\lookatarg\else
  \ifx\thisarg\endofargs\let\go\endgroup
  \else\unskip\advance\argcount by1
   \expandafter\xdef\csname argument\the\argcount\endcsname{\thisarg}
  \let\go=\lookatarg
  \fi\fi
  \go}

\def\registry#1{%
  \gdef\regis{#1 Registry}}
\let\regis\empty


% Move the next def
\def\appealcourt{\def\apcourt{ON APPEAL FROM
                  \headingskip
                  \courtappealled}}
\let\apcourt\empty

\newdimen\bstitlewidth
\def\getbstitlewidth{\iffullsize\bstitlewidth=\hsize
 \else\bstitlewidth=.5\hsize\fi}

% add to counter too many backsheet in multiple affys
\newif\ifended

\def\datesworn#1{\def\whensworn{#1}}
\datesworn{~~/~~/\number\year}

\def\origprocess#1#2#3#4#5{%#1=text for \draft, #2=intro text,
% #3=heading of document, #4=signature (if used), #5=end text
  \enddoc
  \storeparindent=\the\parindent
  \global\parindent=0pt
  \draft{#1}
  \pleadingtrue
  \gettitle
  \heading
  \parties
  \def\endofpleading{#4\bottomofpleading{#5}}
  \ifdraft
   \def\signoff{\endofpleading\settled} % see \chit
  \else\let\signoff\endofpleading\fi
  \medbreak
  \leavevmode
  #2\par
  \centertext{#3}
  \nobreak
  \amendnote}

\gdef\os{%
  \origprocess{ORIGINATING SUMMONS}%
    {\ostext}{}{}{\endostext}}

\def\osinheritance{%
  \origprocess{ORIGINATING SUMMONS}%
    {\osinhtext}{}{}{\endosinhtext}}

\def\specialwrit{%
   \clientpltrue
   \origprocess{WRIT OF SUMMONS\break(SPECIALLY ENDORSED)}%
    {\writtext}{STATEMENT OF CLAIM}{\signature}{\endwrittext}}

\def\generalwrit{% No Statement of Claim
   \origprocess{WRIT OF SUMMONS\break(GENERALLY ENDORSED)}%
    {\writtext}{}{\signature}{\endwrittext}}

\def\writ{\specialwrit}

\def\pageparameters{
  \def\footnoterule{}
  \parindent=10pt
  \quoteindent=20pt
  \quoteparindent=10pt
  \twelvepoint
}

% These should be redefined in RHlocal
\def\myaddress{\ouraddress}
\def\ouraddress{}

\newif\iffax
\def\faxsheet{\faxtrue}

\def\printfaxsheet{%
  \amendtextfalse
  \gdef\doctype{Sent by Fax}
  \inform{\doctype}
  \draftparameters
  \draftfalse
  \getworkdone
  \let\backmatter\empty
  \let\signoff\empty
  \clindfalse
%  \begingroup
   \pageno=1
   \nopagenumbers
   \parindent=0pt
   \centerline{\caps Fax from \counselname}
   \centerline{\vtop{\baselineskip=13pt\halign{\hfil##\hfil\cr
      \myaddress\crcr}}\strut}
   \bigskip
   \leftline{\vtop{\tenpoint\halign{##\hfil\cr
      \today\cr
      \noalign{\medskip}
      Solicitors' Reference---\sref\cr
      Counsel's Reference---\cref\cr
      \if\attentionof\empty\else
       \noalign{\medskip}
       For the Attention of \attentionof\cr
      \fi
     }\strut}}
   \bigskip
   \ifpleading\def\title{\chittitle\hfil}\fi
   \centerline{\vtop{\halign{\hfil##\hfil\cr\title\crcr}}}
   \vfil
   \centerline{\caps This Fax Consists of \the\count1\ Pages}
     \centerline{\caps (including this page)}
   \faxtext
   \vfil
   \def\addressfile{solicitors}
    \getaddress
    \leftline{\vtop{\baselineskip=13pt
                   \halign{##\hfil\cr
                     \sols\crcr}
                   \strut}}
   \supereject
 %  \endgroup
   \faxfalse}

\font\eightsl=cmsl8
\font\eightit=cmti8

\def\ca{% \def\v has been moved since it caused spacing problems
\begingroup\it\frenchspacing % This deals with, eg. Ltd. and v.
}

\def\v{\unskip\/\ {\rm v}\maybespace}% taken out of \ca
\def\se{\unskip\/\endgroup\maybespace}% mod aftergroup

\def\signed{%
 \inform{signature}%
 \par\nobreak
 \vskip1in plus 1fill
 \hbox{\hskip\signindent\vtop{%
  \parindent0pt
  \inn
  \hbox{\today}}}%
  \vskip 1in plus 2fill minus1in}

\def\jsigned{%
 \inform{signatures}%
 \par\nobreak
 \vskip1in plus 2fill
 \hbox{\hskip\signindent\vtop{%
  \parindent0pt
  \inn
  \hbox{\today}}}%
  \vskip 1in plus 1fill minus1in}

\def\copysigned{%
 \par\nobreak
 \vskip.75in plus 1fill
 \hbox{\hskip\signindent\vtop{%
  \parindent0pt
  \hbox{\counselname}
  \hbox{\inn}
  \hbox{\today}}}%
  \vskip 1in plus 2fill minus1in}

% These are defined twice! One should go...
\def\csettled#1{%
 \par\nobreak
 \vskip1in plus 1fill
 \hbox{\hskip\signindent\vtop{%
  \advance\hsize by-\signindent
  \parindent0pt
  \raggedright\tolerance=1000
  Settled, \ignorespaces#1
  \vskip\settledgap
  \inn
  \hbox{\today}}}%
  \vskip 1in plus 2fill minus1in}

\def\cresettled#1{% Note the \par
 \par\nobreak
 \vskip1in plus 1fill
 \hbox{\hskip\signindent\vtop{%
  \advance\hsize by-\signindent
  \parindent0pt
  \raggedright\tolerance=1000
  Re-Settled, \ignorespaces#1
  \vskip\settledgap
  \inn
  \hbox{\today}}}%
 \vskip 1in plus 2fill minus1in}

\def\silenthyphen{\space}

\def\footnotemark{% One bracket deleted.
 \let\@sf\empty\relaxnext@\ifhmode\edef
 \@sf{\spacefactor\the\spacefactor}\/\fi
 \def\next@{\ifx[\next\let\next\nextii@\else
  \ifx"\next\let\next\nextiii@\else
  \let\next\nextiv@\fi\fi\next}% bracket deleted.
 \def\nextii@[##1]{\footmarkform@{##1}\@sf}%
 \def\nextiii@"##1"{{##1}\@sf}%
 \def\nextiv@{{\scriptfont0=\sevenrm % scriptfont changed to 7pt
  \global\advance\footmarkcount@\@ne
  \footmarkform@{\number\footmarkcount@}\@sf}}%
 \futurelet\next\next@}
\catcode`\@=\other

\def\instructions{%
 \getbstitlewidth
 \begingroup
 \def\doctype{INSTRUCTIONS TO COUNSEL}
 \capacitytrue
 \bsparams
 \ifpleading
   \else\xcenterline{\underbar{DATED\hskip2in \number\year}}\vfil\fi
 \xcenterline{\vtop{\openup2\jot
     \halign{\hfil##\hfil\cr
 \title\crcr}}}
\vfil
   \headerfont
   \xcenterline{%
    \setbox0\hbox{\doctype}%
    \ifdim\wd0<\bstitlewidth\copy0
     \else\vtop{\hsize=\bstitlewidth\centertext{\doctype\strut}}%
     \fi}
  \rm
  \medskip
  \xcenterline{\formalcounselname}%
  \vfil\vfil
   \getaddress
   \halign{\def\temp{##}\xcenterline{\upperc{\temp}}\inform{::\temp::}\cr
  \sols\crcr}%
   \smallskip
   \xcenterline{\eightrm Solicitors' Reference: \sref}
   \xcenterline{{\eightrm Counsel's Reference: \col/\cref}}
 \supereject
 \endgroup}

\def\writecontents{\inform{Opening contents file: }%
 \immediate\openout\cont=\contentswritefile}

\def\minutes{%
  \spleading{MINUTES OF ORDER}
   {\scaps This Application}, \etc\par
   {\scaps And Upon Hearing}, \etc\par
   {\scaps And Upon Reading}, \etc\par}

\vbadness=5000 % No messages about underfull pages
\delimitershortfall=1pt
\delimiterfactor=999

% amend topofpleading to have 3 params, 3 being party.
\def\dovcert{\sdcert{M}}
\def\giftcert{\sdcert{L}}

\def\capacityfont{}
\def\capacity#1{\ifcapacity ({\capacityfont #1\/})\else\unskip\fi}

\def\beginparticulars{%
 \par
 \vskip\clskip
 \begingroup
  \clno=0
  \centerline{PARTICULARS}
  \par\nobreak}

\def\endparticulars{%
  \endgroup}

\def\writtext{%
 {\scaps To The \expandafter\uppercase{\dfdants}}%
 \unskip\space\getdefs\smallskip
 {\caps This Writ of Summons} has been issued against you by
 the \plaintfs\ \getpls\unskip\ in respect of the claim
 hereinafter set out.
 \medskip
 Within 14 days after the service of this Writ on you,
 counting the day of service, you must either satisfy the
 claim or return to the Court Office mentioned below the
 accompanying {\scaps Acknowledgment of Service} stating
 therein whether you intend to contest these proceedings.
 \medskip
 If you fail to satisfy the claim or to return the
 Acknowledgment without stating therein an intention to
 contest the proceedings, the \plaintfs\ may proceed with the
 action and judgment may be entered against you forthwith
 without further notice.
 \medskip
 Issued from the \issuer\ of the High Court this \nodate
 \bigskip
 {\bf Note}---This Writ may not be served later than 4 calendar
 months beginning with that date unless renewed by order of
 the Court.
 \bigskip
 \centerline{\bf IMPORTANT}
 \nobreak\medskip
 Directions for Acknowledgement of Service are given with the
 accompanying form.\par
 \bigskip
 %\vfil\penalty-5000\vfilneg
 \baselineskip=18pt
 \nobreak\smallskip\nobreak} % End of \writtext

% set up defaults
\bstitle{}
\solsref{}
\colsref{}           % Omit Counsel's initials
\timetaken{}         % hours
\casetype{}
\value{}             % omit pound sign
\difficulty{}        % out of 10
\proposedfee{}       % omit pound sign
\legalaidno{}
\comments{}

\def\Writissued{}
\maxpartywidth=4.5in % set \maxp@rtywidth.
\def\amendnote{}
\def\amend{}
% Set up default in case no division is given.
\ch

\pleadingfalse % And reset this
\resetpleadingdefaults
\reset
\input rhlocal
\catcode`@=12
\normalnumbering
\twelvepoint